/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / mailcrypt / mc-pgp.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 34 3a 33 | 39 20 31 39 39 35 0a 3b | 14:04:3|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 61 | 69 6c 63 72 79 70 74 2f |/lisp/ma|ilcrypt/|
|00000090| 6d 63 2d 70 67 70 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |mc-pgp.e|l.;;; em|
|000000a0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 31 |acs vers|ion 19.1|
|000000b0| 33 20 58 45 6d 61 63 73 | 20 4c 75 63 69 64 2e 0a |3 XEmacs| Lucid..|
|000000c0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000d0| 73 69 6f 6e 20 32 2e 32 | 35 3b 20 31 2d 53 65 70 |sion 2.2|5; 1-Sep|
|000000e0| 2d 39 34 2e 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |-94..;;;| optimiz|
|000000f0| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|00000100| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|00000110| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|00000120| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000130| 61 63 73 20 31 38 2e 0a | 0a 28 69 66 20 28 61 6e |acs 18..|.(if (an|
|00000140| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000150| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000170| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000180| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|00000190| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|000001a0| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|000001b0| 22 31 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"19"))).|    (err|
|000001c0| 6f 72 20 22 54 68 69 73 | 20 66 69 6c 65 20 77 61 |or "This| file wa|
|000001d0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001e0| 6d 61 63 73 20 31 39 2e | 22 29 29 0a 0a 28 72 65 |macs 19.|"))..(re|
|000001f0| 71 75 69 72 65 20 27 6d | 61 69 6c 63 72 79 70 74 |quire 'm|ailcrypt|
|00000200| 29 0a 28 64 65 66 76 61 | 72 20 6d 63 2d 70 67 70 |).(defva|r mc-pgp|
|00000210| 2d 75 73 65 72 2d 69 64 | 20 28 75 73 65 72 2d 6c |-user-id| (user-l|
|00000220| 6f 67 69 6e 2d 6e 61 6d | 65 29 20 22 5c 0a 2a 50 |ogin-nam|e) "\.*P|
|00000230| 47 50 20 49 44 20 6f 66 | 20 79 6f 75 72 20 64 65 |GP ID of| your de|
|00000240| 66 61 75 6c 74 20 69 64 | 65 6e 74 69 74 79 2e 22 |fault id|entity."|
|00000250| 29 0a 28 64 65 66 76 61 | 72 20 6d 63 2d 70 67 70 |).(defva|r mc-pgp|
|00000260| 2d 61 6c 77 61 79 73 2d | 73 69 67 6e 20 6e 69 6c |-always-|sign nil|
|00000270| 20 22 5c 0a 2a 49 66 20 | 74 2c 20 61 6c 77 61 79 | "\.*If |t, alway|
|00000280| 73 20 73 69 67 6e 20 65 | 6e 63 72 79 70 74 65 64 |s sign e|ncrypted|
|00000290| 20 50 47 50 20 6d 65 73 | 73 61 67 65 73 2c 20 6f | PGP mes|sages, o|
|000002a0| 72 20 6e 65 76 65 72 20 | 73 69 67 6e 20 69 66 20 |r never |sign if |
|000002b0| 27 6e 65 76 65 72 2e 22 | 29 0a 28 64 65 66 76 61 |'never."|).(defva|
|000002c0| 72 20 6d 63 2d 70 67 70 | 2d 70 61 74 68 20 22 70 |r mc-pgp|-path "p|
|000002d0| 67 70 22 20 22 5c 0a 2a | 54 68 65 20 50 47 50 20 |gp" "\.*|The PGP |
|000002e0| 65 78 65 63 75 74 61 62 | 6c 65 2e 22 29 0a 28 64 |executab|le.").(d|
|000002f0| 65 66 76 61 72 20 6d 63 | 2d 70 67 70 2d 64 69 73 |efvar mc|-pgp-dis|
|00000300| 70 6c 61 79 2d 73 6e 61 | 72 66 2d 6f 75 74 70 75 |play-sna|rf-outpu|
|00000310| 74 20 6e 69 6c 20 22 5c | 0a 2a 49 66 20 74 2c 20 |t nil "\|.*If t, |
|00000320| 70 6f 70 20 75 70 20 74 | 68 65 20 50 47 50 20 6f |pop up t|he PGP o|
|00000330| 75 74 70 75 74 20 77 69 | 6e 64 6f 77 20 77 68 65 |utput wi|ndow whe|
|00000340| 6e 20 73 6e 61 72 66 69 | 6e 67 20 6b 65 79 73 2e |n snarfi|ng keys.|
|00000350| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 63 2d 70 67 |").(defv|ar mc-pg|
|00000360| 70 2d 61 6c 74 65 72 6e | 61 74 65 2d 6b 65 79 72 |p-altern|ate-keyr|
|00000370| 69 6e 67 20 6e 69 6c 20 | 22 5c 0a 2a 50 75 62 6c |ing nil |"\.*Publ|
|00000380| 69 63 20 6b 65 79 72 69 | 6e 67 20 74 6f 20 75 73 |ic keyri|ng to us|
|00000390| 65 20 69 6e 73 74 65 61 | 64 20 6f 66 20 64 65 66 |e instea|d of def|
|000003a0| 61 75 6c 74 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ault.").|(defvar |
|000003b0| 6d 63 2d 70 67 70 2d 63 | 6f 6d 6d 65 6e 74 20 28 |mc-pgp-c|omment (|
|000003c0| 66 6f 72 6d 61 74 20 22 | 50 72 6f 63 65 73 73 65 |format "|Processe|
|000003d0| 64 20 62 79 20 4d 61 69 | 6c 63 72 79 70 74 20 25 |d by Mai|lcrypt %|
|000003e0| 73 2c 20 61 6e 20 45 6d | 61 63 73 2f 50 47 50 20 |s, an Em|acs/PGP |
|000003f0| 69 6e 74 65 72 66 61 63 | 65 22 20 6d 63 2d 76 65 |interfac|e" mc-ve|
|00000400| 72 73 69 6f 6e 29 20 22 | 5c 0a 2a 43 6f 6d 6d 65 |rsion) "|\.*Comme|
|00000410| 6e 74 20 66 69 65 6c 64 | 20 74 6f 20 61 70 70 65 |nt field| to appe|
|00000420| 61 72 20 69 6e 20 41 53 | 43 49 49 20 61 72 6d 6f |ar in AS|CII armo|
|00000430| 72 20 6f 75 74 70 75 74 | 2e 20 20 49 66 20 6e 69 |r output|.  If ni|
|00000440| 6c 2c 20 6c 65 74 20 50 | 47 50 0a 75 73 65 20 69 |l, let P|GP.use i|
|00000450| 74 73 20 64 65 66 61 75 | 6c 74 2e 22 29 0a 28 64 |ts defau|lt.").(d|
|00000460| 65 66 63 6f 6e 73 74 20 | 6d 63 2d 70 67 70 2d 6d |efconst |mc-pgp-m|
|00000470| 73 67 2d 62 65 67 69 6e | 2d 6c 69 6e 65 20 22 2d |sg-begin|-line "-|
|00000480| 2d 2d 2d 2d 42 45 47 49 | 4e 20 50 47 50 20 4d 45 |----BEGI|N PGP ME|
|00000490| 53 53 41 47 45 2d 2d 2d | 2d 2d 22 20 22 5c 0a 54 |SSAGE---|--" "\.T|
|000004a0| 65 78 74 20 66 6f 72 20 | 73 74 61 72 74 20 6f 66 |ext for |start of|
|000004b0| 20 50 47 50 20 6d 65 73 | 73 61 67 65 20 64 65 6c | PGP mes|sage del|
|000004c0| 69 6d 69 74 65 72 2e 22 | 29 0a 28 64 65 66 63 6f |imiter."|).(defco|
|000004d0| 6e 73 74 20 6d 63 2d 70 | 67 70 2d 6d 73 67 2d 65 |nst mc-p|gp-msg-e|
|000004e0| 6e 64 2d 6c 69 6e 65 20 | 22 2d 2d 2d 2d 2d 45 4e |nd-line |"-----EN|
|000004f0| 44 20 50 47 50 20 4d 45 | 53 53 41 47 45 2d 2d 2d |D PGP ME|SSAGE---|
|00000500| 2d 2d 22 20 22 5c 0a 54 | 65 78 74 20 66 6f 72 20 |--" "\.T|ext for |
|00000510| 65 6e 64 20 6f 66 20 50 | 47 50 20 6d 65 73 73 61 |end of P|GP messa|
|00000520| 67 65 20 64 65 6c 69 6d | 69 74 65 72 2e 22 29 0a |ge delim|iter.").|
|00000530| 28 64 65 66 63 6f 6e 73 | 74 20 6d 63 2d 70 67 70 |(defcons|t mc-pgp|
|00000540| 2d 73 69 67 6e 65 64 2d | 62 65 67 69 6e 2d 6c 69 |-signed-|begin-li|
|00000550| 6e 65 20 22 2d 2d 2d 2d | 2d 42 45 47 49 4e 20 50 |ne "----|-BEGIN P|
|00000560| 47 50 20 53 49 47 4e 45 | 44 20 4d 45 53 53 41 47 |GP SIGNE|D MESSAG|
|00000570| 45 2d 2d 2d 2d 2d 22 20 | 22 5c 0a 54 65 78 74 20 |E-----" |"\.Text |
|00000580| 66 6f 72 20 73 74 61 72 | 74 20 6f 66 20 50 47 50 |for star|t of PGP|
|00000590| 20 73 69 67 6e 65 64 20 | 6d 65 73 73 61 67 65 73 | signed |messages|
|000005a0| 2e 22 29 0a 28 64 65 66 | 63 6f 6e 73 74 20 6d 63 |.").(def|const mc|
|000005b0| 2d 70 67 70 2d 73 69 67 | 6e 65 64 2d 65 6e 64 2d |-pgp-sig|ned-end-|
|000005c0| 6c 69 6e 65 20 22 2d 2d | 2d 2d 2d 45 4e 44 20 50 |line "--|---END P|
|000005d0| 47 50 20 53 49 47 4e 41 | 54 55 52 45 2d 2d 2d 2d |GP SIGNA|TURE----|
|000005e0| 2d 22 20 22 5c 0a 54 65 | 78 74 20 66 6f 72 20 65 |-" "\.Te|xt for e|
|000005f0| 6e 64 20 6f 66 20 50 47 | 50 20 73 69 67 6e 65 64 |nd of PG|P signed|
|00000600| 20 6d 65 73 73 61 67 65 | 73 2e 22 29 0a 28 64 65 | message|s.").(de|
|00000610| 66 63 6f 6e 73 74 20 6d | 63 2d 70 67 70 2d 6b 65 |fconst m|c-pgp-ke|
|00000620| 79 2d 62 65 67 69 6e 2d | 6c 69 6e 65 20 22 5e 2d |y-begin-|line "^-|
|00000630| 2d 2d 2d 2d 42 45 47 49 | 4e 20 50 47 50 20 50 55 |----BEGI|N PGP PU|
|00000640| 42 4c 49 43 20 4b 45 59 | 20 42 4c 4f 43 4b 2d 2d |BLIC KEY| BLOCK--|
|00000650| 2d 2d 2d 0d 3f 24 22 20 | 22 5c 0a 54 65 78 74 20 |---.?$" |"\.Text |
|00000660| 66 6f 72 20 73 74 61 72 | 74 20 6f 66 20 50 47 50 |for star|t of PGP|
|00000670| 20 70 75 62 6c 69 63 20 | 6b 65 79 2e 22 29 0a 28 | public |key.").(|
|00000680| 64 65 66 63 6f 6e 73 74 | 20 6d 63 2d 70 67 70 2d |defconst| mc-pgp-|
|00000690| 6b 65 79 2d 65 6e 64 2d | 6c 69 6e 65 20 22 5e 2d |key-end-|line "^-|
|000006a0| 2d 2d 2d 2d 45 4e 44 20 | 50 47 50 20 50 55 42 4c |----END |PGP PUBL|
|000006b0| 49 43 20 4b 45 59 20 42 | 4c 4f 43 4b 2d 2d 2d 2d |IC KEY B|LOCK----|
|000006c0| 2d 0d 3f 24 22 20 22 5c | 0a 54 65 78 74 20 66 6f |-.?$" "\|.Text fo|
|000006d0| 72 20 65 6e 64 20 6f 66 | 20 50 47 50 20 70 75 62 |r end of| PGP pub|
|000006e0| 6c 69 63 20 6b 65 79 2e | 22 29 0a 28 64 65 66 63 |lic key.|").(defc|
|000006f0| 6f 6e 73 74 20 6d 63 2d | 70 67 70 2d 65 72 72 6f |onst mc-|pgp-erro|
|00000700| 72 2d 72 65 20 22 5e 5c | 5c 28 45 52 52 4f 52 3a |r-re "^\|\(ERROR:|
|00000710| 5c 5c 7c 57 41 52 4e 49 | 4e 47 3a 5c 5c 29 2e 2a |\\|WARNI|NG:\\).*|
|00000720| 22 20 22 5c 0a 52 65 67 | 75 6c 61 72 20 65 78 70 |" "\.Reg|ular exp|
|00000730| 72 65 73 73 69 6f 6e 20 | 6d 61 74 63 68 69 6e 67 |ression |matching|
|00000740| 20 61 6e 20 65 72 72 6f | 72 20 66 72 6f 6d 20 50 | an erro|r from P|
|00000750| 47 50 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 6d |GP").(de|fconst m|
|00000760| 63 2d 70 67 70 2d 73 69 | 67 6f 6b 2d 72 65 20 22 |c-pgp-si|gok-re "|
|00000770| 5e 2e 2a 47 6f 6f 64 20 | 73 69 67 6e 61 74 75 72 |^.*Good |signatur|
|00000780| 65 2e 2a 22 20 22 5c 0a | 52 65 67 75 6c 61 72 20 |e.*" "\.|Regular |
|00000790| 65 78 70 72 65 73 73 69 | 6f 6e 20 6d 61 74 63 68 |expressi|on match|
|000007a0| 69 6e 67 20 61 20 50 47 | 50 20 73 69 67 6e 61 74 |ing a PG|P signat|
|000007b0| 75 72 65 20 76 61 6c 69 | 64 61 74 69 6f 6e 20 6d |ure vali|dation m|
|000007c0| 65 73 73 61 67 65 22 29 | 0a 28 64 65 66 63 6f 6e |essage")|.(defcon|
|000007d0| 73 74 20 6d 63 2d 70 67 | 70 2d 6e 65 77 6b 65 79 |st mc-pg|p-newkey|
|000007e0| 2d 72 65 20 22 5e 5b 20 | 09 5d 2a 5c 5c 28 4e 6f |-re "^[ |.]*\\(No|
|000007f0| 5c 5c 7c 5b 30 2d 39 5d | 2b 5c 5c 29 20 2b 6e 65 |\\|[0-9]|+\\) +ne|
|00000800| 77 20 5b 6b 75 5d 2e 2a | 22 20 22 5c 0a 52 65 67 |w [ku].*|" "\.Reg|
|00000810| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00000820| 6d 61 74 63 68 69 6e 67 | 20 61 20 50 47 50 20 6b |matching| a PGP k|
|00000830| 65 79 20 73 6e 61 72 66 | 20 6d 65 73 73 61 67 65 |ey snarf| message|
|00000840| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 6d 63 2d |").(defc|onst mc-|
|00000850| 70 67 70 2d 6e 6f 6b 65 | 79 2d 72 65 20 22 43 61 |pgp-noke|y-re "Ca|
|00000860| 6e 6e 6f 74 20 66 69 6e | 64 20 74 68 65 20 70 75 |nnot fin|d the pu|
|00000870| 62 6c 69 63 20 6b 65 79 | 20 6d 61 74 63 68 69 6e |blic key| matchin|
|00000880| 67 20 75 73 65 72 69 64 | 20 27 5c 5c 28 2e 2b 5c |g userid| '\\(.+\|
|00000890| 5c 29 27 24 22 20 22 5c | 0a 52 65 67 75 6c 61 72 |\)'$" "\|.Regular|
|000008a0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 6d 61 74 63 | express|ion matc|
|000008b0| 68 69 6e 67 20 61 20 50 | 47 50 20 6d 69 73 73 69 |hing a P|GP missi|
|000008c0| 6e 67 2d 6b 65 79 20 6d | 65 73 73 73 61 67 65 22 |ng-key m|esssage"|
|000008d0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |).(byte-|code "..|
|000008e0| c2 87 22 20 5b 22 4b 65 | 79 20 6d 61 74 63 68 69 |.." ["Ke|y matchi|
|000008f0| 6e 67 20 65 78 70 65 63 | 74 65 64 20 4b 65 79 20 |ng expec|ted Key |
|00000900| 49 44 20 5c 5c 28 5c 5c | 53 20 2b 5c 5c 29 20 6e |ID \\(\\|S +\\) n|
|00000910| 6f 74 20 66 6f 75 6e 64 | 22 20 6d 63 2d 70 67 70 |ot found|" mc-pgp|
|00000920| 2d 6b 65 79 2d 65 78 70 | 65 63 74 65 64 2d 72 65 |-key-exp|ected-re|
|00000930| 20 6e 69 6c 5d 20 31 29 | 0a 28 64 65 66 76 61 72 | nil] 1)|.(defvar|
|00000940| 20 6d 63 2d 70 67 70 2d | 6b 65 79 64 69 72 20 6e | mc-pgp-|keydir n|
|00000950| 69 6c 20 22 5c 0a 44 69 | 72 65 63 74 6f 72 79 20 |il "\.Di|rectory |
|00000960| 69 6e 20 77 68 69 63 68 | 20 6b 65 79 72 69 6e 67 |in which| keyring|
|00000970| 73 20 61 72 65 20 73 74 | 6f 72 65 64 2e 22 29 0a |s are st|ored.").|
|00000980| 28 66 73 65 74 20 27 6d | 63 2d 67 65 74 2d 70 67 |(fset 'm|c-get-pg|
|00000990| 70 2d 6b 65 79 64 69 72 | 20 23 5b 6e 69 6c 20 22 |p-keydir| #[nil "|
|000009a0| 08 ac a9 c1 c2 21 70 1b | 1c c5 8e c6 0e 07 c8 0c |.....!p.|........|
|000009b0| c8 c9 ca cb cc 26 08 88 | 0c 71 88 65 62 88 cd ce |.....&..|.q.eb...|
|000009c0| 21 88 cf d0 d1 94 d1 95 | 5c 22 21 10 2b 08 87 22 |!.......|\"!.+.."|
|000009d0| 20 5b 6d 63 2d 70 67 70 | 2d 6b 65 79 64 69 72 20 | [mc-pgp|-keydir |
|000009e0| 67 65 6e 65 72 61 74 65 | 2d 6e 65 77 2d 62 75 66 |generate|-new-buf|
|000009f0| 66 65 72 20 22 20 2a 6d | 61 69 6c 63 72 79 70 74 |fer " *m|ailcrypt|
|00000a00| 20 74 65 6d 70 2a 22 20 | 6f 62 75 66 20 62 75 66 | temp*" |obuf buf|
|00000a10| 66 65 72 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |fer ((by|te-code |
|00000a20| 22 08 71 88 c1 5c 6e 21 | 87 22 20 5b 6f 62 75 66 |".q..\n!|." [obuf|
|00000a30| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 62 75 66 | kill-bu|ffer buf|
|00000a40| 66 65 72 5d 20 32 29 29 | 20 63 61 6c 6c 2d 70 72 |fer] 2))| call-pr|
|00000a50| 6f 63 65 73 73 20 6d 63 | 2d 70 67 70 2d 70 61 74 |ocess mc|-pgp-pat|
|00000a60| 68 20 6e 69 6c 20 22 2b | 76 65 72 62 6f 73 65 3d |h nil "+|verbose=|
|00000a70| 31 22 20 22 2b 6c 61 6e | 67 75 61 67 65 3d 65 6e |1" "+lan|guage=en|
|00000a80| 22 20 22 2d 6b 76 22 20 | 22 58 58 58 58 58 58 58 |" "-kv" |"XXXXXXX|
|00000a90| 58 58 58 22 20 72 65 2d | 73 65 61 72 63 68 2d 66 |XXX" re-|search-f|
|00000aa0| 6f 72 77 61 72 64 20 22 | 5e 4b 65 79 20 72 69 6e |orward "|^Key rin|
|00000ab0| 67 3a 5c 5c 73 20 2a 27 | 5c 5c 28 2e 2a 5c 5c 29 |g:\\s *'|\\(.*\\)|
|00000ac0| 27 22 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |'" file-|name-dir|
|00000ad0| 65 63 74 6f 72 79 20 62 | 75 66 66 65 72 2d 73 75 |ectory b|uffer-su|
|00000ae0| 62 73 74 72 69 6e 67 2d | 6e 6f 2d 70 72 6f 70 65 |bstring-|no-prope|
|00000af0| 72 74 69 65 73 20 31 5d | 20 39 5d 29 0a 28 64 65 |rties 1]| 9]).(de|
|00000b00| 66 76 61 72 20 6d 63 2d | 70 67 70 2d 6b 65 79 2d |fvar mc-|pgp-key-|
|00000b10| 63 61 63 68 65 20 6e 69 | 6c 20 22 5c 0a 41 73 73 |cache ni|l "\.Ass|
|00000b20| 6f 63 69 61 74 69 6f 6e | 20 6c 69 73 74 20 6d 61 |ociation| list ma|
|00000b30| 70 70 69 6e 67 20 50 47 | 50 20 49 44 73 20 74 6f |pping PG|P IDs to|
|00000b40| 20 63 61 6e 6f 6e 69 63 | 61 6c 20 5c 22 6b 65 79 | canonic|al \"key|
|00000b50| 73 5c 22 2e 20 20 41 20 | 5c 22 6b 65 79 5c 22 0a |s\".  A |\"key\".|
|00000b60| 69 73 20 61 20 70 61 69 | 72 20 28 55 53 45 52 2d |is a pai|r (USER-|
|00000b70| 49 44 20 2e 20 4b 45 59 | 2d 49 44 29 20 77 68 69 |ID . KEY|-ID) whi|
|00000b80| 63 68 20 69 64 65 6e 74 | 69 66 69 65 73 20 74 68 |ch ident|ifies th|
|00000b90| 65 20 63 61 6e 6f 6e 69 | 63 61 6c 20 49 44 73 20 |e canoni|cal IDs |
|00000ba0| 6f 66 20 74 68 65 0a 50 | 47 50 20 49 44 2e 22 29 |of the.P|GP ID.")|
|00000bb0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00000bc0| 88 c2 c3 4d 88 c4 c5 4d | 88 c6 c7 4d 88 c8 c9 4d |...M...M|...M...M|
|00000bd0| 88 ca cb 4d 88 cc cd 4d | 88 ce cf 4d 88 d0 d1 4d |...M...M|...M...M|
|00000be0| 88 d2 d3 4d 88 d4 d5 4d | 88 d6 d7 4d 87 22 20 5b |...M...M|...M." [|
|00000bf0| 6d 63 2d 70 67 70 2d 6c | 6f 6f 6b 75 70 2d 6b 65 |mc-pgp-l|ookup-ke|
|00000c00| 79 20 23 5b 28 73 74 72 | 29 20 22 08 c1 9a 3f ad |y #[(str|) "...?.|
|00000c10| e4 c2 20 c3 50 c4 08 0d | 5c 22 a3 c6 70 c7 1e 08 |.. .P...|\"..p...|
|00000c20| 1e 09 1e 5c 6e 1e 0b 1e | 0c 0e 0b ac be cd 8e ce |...\n...|........|
|00000c30| cf 21 16 08 d0 0e 11 c7 | 0e 08 c7 d2 d3 08 0e 0c |.!......|........|
|00000c40| 26 08 88 0e 08 71 88 65 | 62 88 d4 0e 5c 6e c7 d5 |&....q.e|b...\n..|
|00000c50| 23 ab 98 d6 d7 94 d7 95 | 5c 22 d8 d6 d9 94 d9 95 |#.......|\"......|
|00000c60| 5c 22 50 42 16 0b 08 0e | 0b 42 0d 42 15 29 0e 0b |\"PB....|.B.B.)..|
|00000c70| ac 85 da db 08 5c 22 88 | 0e 0b 2d 87 22 20 5b 73 |.....\".|..-." [s|
|00000c80| 74 72 20 22 2a 2a 2a 2a | 2a 20 43 4f 4e 56 45 4e |tr "****|* CONVEN|
|00000c90| 54 49 4f 4e 41 4c 20 2a | 2a 2a 2a 2a 22 20 6d 63 |TIONAL *|****" mc|
|00000ca0| 2d 67 65 74 2d 70 67 70 | 2d 6b 65 79 64 69 72 20 |-get-pgp|-keydir |
|00000cb0| 22 73 65 63 72 69 6e 67 | 22 20 61 73 73 6f 63 20 |"secring|" assoc |
|00000cc0| 6d 63 2d 70 67 70 2d 6b | 65 79 2d 63 61 63 68 65 |mc-pgp-k|ey-cache|
|00000cd0| 20 22 5e 5c 5c 28 70 75 | 62 5c 5c 7c 73 65 63 5c | "^\\(pu|b\\|sec\|
|00000ce0| 5c 29 5c 5c 73 20 2b 5b | 5e 2f 5d 2b 2f 5c 5c 28 |\)\\s +[|^/]+/\\(|
|00000cf0| 5c 5c 53 20 2a 5c 5c 29 | 5c 5c 73 20 2b 5c 5c 53 |\\S *\\)|\\s +\\S|
|00000d00| 20 2b 5c 5c 73 20 2b 5c | 5c 28 2e 2a 5c 5c 29 24 | +\\s +\|\(.*\\)$|
|00000d10| 22 20 6e 69 6c 20 62 75 | 66 66 65 72 20 6f 62 75 |" nil bu|ffer obu|
|00000d20| 66 20 6b 65 79 2d 72 65 | 67 65 78 70 20 72 65 73 |f key-re|gexp res|
|00000d30| 75 6c 74 20 6b 65 79 72 | 69 6e 67 20 28 28 62 79 |ult keyr|ing ((by|
|00000d40| 74 65 2d 63 6f 64 65 20 | 22 08 ab 84 c1 08 21 88 |te-code |".....!.|
|00000d50| 5c 6e 71 87 22 20 5b 62 | 75 66 66 65 72 20 6b 69 |\nq." [b|uffer ki|
|00000d60| 6c 6c 2d 62 75 66 66 65 | 72 20 6f 62 75 66 5d 20 |ll-buffe|r obuf] |
|00000d70| 32 29 29 20 67 65 6e 65 | 72 61 74 65 2d 6e 65 77 |2)) gene|rate-new|
|00000d80| 2d 62 75 66 66 65 72 20 | 22 20 2a 6d 61 69 6c 63 |-buffer |" *mailc|
|00000d90| 72 79 70 74 20 74 65 6d | 70 22 20 63 61 6c 6c 2d |rypt tem|p" call-|
|00000da0| 70 72 6f 63 65 73 73 20 | 6d 63 2d 70 67 70 2d 70 |process |mc-pgp-p|
|00000db0| 61 74 68 20 22 2b 6c 61 | 6e 67 75 61 67 65 3d 65 |ath "+la|nguage=e|
|00000dc0| 6e 22 20 22 2d 6b 76 22 | 20 72 65 2d 73 65 61 72 |n" "-kv"| re-sear|
|00000dd0| 63 68 2d 66 6f 72 77 61 | 72 64 20 74 20 62 75 66 |ch-forwa|rd t buf|
|00000de0| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 2d 6e 6f |fer-subs|tring-no|
|00000df0| 2d 70 72 6f 70 65 72 74 | 69 65 73 20 33 20 22 30 |-propert|ies 3 "0|
|00000e00| 78 22 20 32 20 65 72 72 | 6f 72 20 22 4e 6f 20 50 |x" 2 err|or "No P|
|00000e10| 47 50 20 73 65 63 72 65 | 74 20 6b 65 79 20 66 6f |GP secre|t key fo|
|00000e20| 72 20 25 73 22 5d 20 39 | 5d 20 6d 63 2d 70 67 70 |r %s"] 9|] mc-pgp|
|00000e30| 2d 67 65 6e 65 72 69 63 | 2d 70 61 72 73 65 72 20 |-generic|-parser |
|00000e40| 23 5b 28 72 65 73 75 6c | 74 29 20 22 c0 19 65 62 |#[(resul|t) "..eb|
|00000e50| 88 5c 6e c3 3d ac 99 c0 | c4 c5 70 5c 22 ab 86 c6 |.\n.=...|..p\"...|
|00000e60| c7 21 88 aa b7 c4 0e 08 | 70 c9 ca 5c 6e 5c 22 23 |.!......|p..\n\"#|
|00000e70| 88 aa ab cb 0e 0c c0 c7 | 23 ab 83 c0 aa a0 65 62 |........|#.....eb|
|00000e80| ad 9c cb cd c0 c7 23 ad | 95 c3 94 89 11 ad 8f 64 |......#.|.......d|
|00000e90| 62 ad 8b ce cf c0 c7 23 | ad 84 09 c3 95 42 29 87 |b......#|.....B).|
|00000ea0| 22 20 5b 6e 69 6c 20 73 | 74 61 72 74 20 72 65 73 |" [nil s|tart res|
|00000eb0| 75 6c 74 20 30 20 6d 63 | 2d 6d 65 73 73 61 67 65 |ult 0 mc|-message|
|00000ec0| 20 22 5e 07 45 72 72 6f | 72 3a 20 2b 42 61 64 20 | "^.Erro|r: +Bad |
|00000ed0| 70 61 73 73 20 70 68 72 | 61 73 65 5c 5c 2e 24 22 |pass phr|ase\\.$"|
|00000ee0| 20 6d 63 2d 64 65 61 63 | 74 69 76 61 74 65 2d 70 | mc-deac|tivate-p|
|00000ef0| 61 73 73 77 64 20 74 20 | 6d 63 2d 70 67 70 2d 65 |asswd t |mc-pgp-e|
|00000f00| 72 72 6f 72 2d 72 65 20 | 66 6f 72 6d 61 74 20 22 |rror-re |format "|
|00000f10| 50 47 50 20 65 78 69 74 | 65 64 20 77 69 74 68 20 |PGP exit|ed with |
|00000f20| 73 74 61 74 75 73 20 25 | 64 22 20 72 65 2d 73 65 |status %|d" re-se|
|00000f30| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 6d 63 2d |arch-for|ward mc-|
|00000f40| 70 67 70 2d 6e 6f 6b 65 | 79 2d 72 65 20 22 2d 2d |pgp-noke|y-re "--|
|00000f50| 2d 2d 2d 42 45 47 49 4e | 20 50 47 50 2e 2a 2d 2d |---BEGIN| PGP.*--|
|00000f60| 2d 2d 2d 24 22 20 72 65 | 2d 73 65 61 72 63 68 2d |---$" re|-search-|
|00000f70| 62 61 63 6b 77 61 72 64 | 20 22 5e 2d 2d 2d 2d 2d |backward| "^-----|
|00000f80| 45 4e 44 20 50 47 50 2e | 2a 2d 2d 2d 2d 2d 5c 6e |END PGP.|*-----\n|
|00000f90| 22 5d 20 37 5d 20 6d 63 | 2d 70 67 70 2d 65 6e 63 |"] 7] mc|-pgp-enc|
|00000fa0| 72 79 70 74 2d 72 65 67 | 69 6f 6e 20 23 5b 28 72 |rypt-reg|ion #[(r|
|00000fb0| 65 63 69 70 69 65 6e 74 | 73 20 73 74 61 72 74 20 |ecipient|s start |
|00000fc0| 65 6e 64 20 26 6f 70 74 | 69 6f 6e 61 6c 20 69 64 |end &opt|ional id|
|00000fd0| 20 73 69 67 6e 29 20 22 | 08 c1 5c 6e 21 c3 0c 70 | sign) "|..\n!..p|
|00000fe0| c5 89 89 89 89 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |........|......\n|
|00000ff0| 1e 0b 1c 1e 0c 1e 0d 18 | ce 0e 0f ae 82 0e 10 21 |........|.......!|
|00001000| 16 09 0e 11 ab 88 0e 09 | 41 0e 12 42 16 12 d3 d4 |........|A..B....|
|00001010| d5 d6 46 16 5c 6e 0e 17 | ab 8a d8 d9 0e 17 5c 22 |..F.\n..|......\"|
|00001020| 0e 5c 6e 42 16 5c 6e 0e | 1a ab 8c db 0e 5c 6e d8 |.\nB.\n.|.....\n.|
|00001030| dc 0e 1a 5c 22 43 5c 22 | 16 5c 6e 0c dd 3d ac b8 |...\"C\"|.\n..=..|
|00001040| 0c ac 89 0e 1e ac 85 df | e0 21 ab ac e1 14 e2 0e |........|.!......|
|00001050| 09 41 d8 e3 0e 09 40 0e | 09 41 23 5c 22 16 08 0e |.A....@.|.A#\"...|
|00001060| 5c 6e e4 e5 0e 09 41 45 | a4 16 5c 6e e6 e7 e8 5c |\n....AE|..\n...\|
|00001070| 22 88 d8 e9 0e 09 40 5c | 22 16 0c aa 82 dd 14 db |".....@\|".......|
|00001080| 0e 5c 6e 0e 12 5c 22 16 | 5c 6e ea eb 0e 0c 5c 22 |.\n..\".|\n....\"|
|00001090| 88 ec 0e 2d 0e 2e 0e 08 | 0e 2f 0e 5c 6e f0 0e 0d |...-....|./.\n...|
|000010a0| 26 07 16 07 8a 0e 0d 71 | 88 65 62 88 f1 0e 32 c5 |&......q|.eb...2.|
|000010b0| e1 23 ab b2 0e 07 ab 84 | f3 f4 21 88 f5 f6 94 f6 |.#......|..!.....|
|000010c0| 95 5c 22 16 06 df d8 f7 | 0e 06 5c 22 21 ad a6 f8 |.\".....|..\"!...|
|000010d0| 0e 06 c5 42 21 ad 9e 0e | 0b 71 ad 99 f9 0e 12 0e |...B!...|.q......|
|000010e0| 2d 0e 2e 0e 0f 24 aa 8d | 0e 07 3f 3f ad 87 ea fa |-....$..|..??....|
|000010f0| 0e 0c 5c 22 88 e1 2e 0b | 87 22 20 5b 70 72 6f 63 |..\"....|." [proc|
|00001100| 65 73 73 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |ess-envi|ronment |
|00001110| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001120| 65 20 6d 63 2d 62 75 66 | 66 65 72 2d 6e 61 6d 65 |e mc-buf|fer-name|
|00001130| 20 22 45 6e 63 72 79 70 | 74 69 6e 67 2e 2e 2e 22 | "Encryp|ting..."|
|00001140| 20 6d 63 2d 70 67 70 2d | 61 6c 77 61 79 73 2d 73 | mc-pgp-|always-s|
|00001150| 69 67 6e 20 6e 69 6c 20 | 70 67 70 2d 69 64 20 72 |ign nil |pgp-id r|
|00001160| 65 73 75 6c 74 20 70 61 | 73 73 77 64 20 6b 65 79 |esult pa|sswd key|
|00001170| 20 61 72 67 73 20 6f 62 | 75 66 20 6d 73 67 20 62 | args ob|uf msg b|
|00001180| 75 66 66 65 72 20 6d 63 | 2d 70 67 70 2d 6c 6f 6f |uffer mc|-pgp-loo|
|00001190| 6b 75 70 2d 6b 65 79 20 | 69 64 20 6d 63 2d 70 67 |kup-key |id mc-pg|
|000011a0| 70 2d 75 73 65 72 2d 69 | 64 20 6d 63 2d 65 6e 63 |p-user-i|d mc-enc|
|000011b0| 72 79 70 74 2d 66 6f 72 | 2d 6d 65 20 72 65 63 69 |rypt-for|-me reci|
|000011c0| 70 69 65 6e 74 73 20 22 | 2b 65 6e 63 72 79 70 74 |pients "|+encrypt|
|000011d0| 74 6f 73 65 6c 66 3d 6f | 66 66 20 2b 76 65 72 62 |toself=o|ff +verb|
|000011e0| 6f 73 65 3d 31 22 20 22 | 2b 62 61 74 63 68 6d 6f |ose=1" "|+batchmo|
|000011f0| 64 65 22 20 22 2b 6c 61 | 6e 67 75 61 67 65 3d 65 |de" "+la|nguage=e|
|00001200| 6e 22 20 22 2d 66 65 61 | 74 22 20 6d 63 2d 70 67 |n" "-fea|t" mc-pg|
|00001210| 70 2d 63 6f 6d 6d 65 6e | 74 20 66 6f 72 6d 61 74 |p-commen|t format|
|00001220| 20 22 2b 63 6f 6d 6d 65 | 6e 74 3d 25 73 22 20 6d | "+comme|nt=%s" m|
|00001230| 63 2d 70 67 70 2d 61 6c | 74 65 72 6e 61 74 65 2d |c-pgp-al|ternate-|
|00001240| 6b 65 79 72 69 6e 67 20 | 61 70 70 65 6e 64 20 22 |keyring |append "|
|00001250| 2b 70 75 62 72 69 6e 67 | 3d 25 73 22 20 6e 65 76 |+pubring|=%s" nev|
|00001260| 65 72 20 73 69 67 6e 20 | 79 2d 6f 72 2d 6e 2d 70 |er sign |y-or-n-p|
|00001270| 20 22 53 69 67 6e 20 74 | 68 65 20 6d 65 73 73 61 | "Sign t|he messa|
|00001280| 67 65 3f 20 22 20 74 20 | 6d 63 2d 61 63 74 69 76 |ge? " t |mc-activ|
|00001290| 61 74 65 2d 70 61 73 73 | 77 64 20 22 50 47 50 20 |ate-pass|wd "PGP |
|000012a0| 70 61 73 73 70 68 72 61 | 73 65 20 66 6f 72 20 25 |passphra|se for %|
|000012b0| 73 20 28 25 73 29 3a 20 | 22 20 22 2d 73 22 20 22 |s (%s): |" "-s" "|
|000012c0| 2d 75 22 20 73 65 74 65 | 6e 76 20 22 50 47 50 50 |-u" sete|nv "PGPP|
|000012d0| 41 53 53 46 44 22 20 22 | 30 22 20 22 45 6e 63 72 |ASSFD" "|0" "Encr|
|000012e0| 79 70 74 69 6e 67 2b 73 | 69 67 6e 69 6e 67 20 61 |ypting+s|igning a|
|000012f0| 73 20 25 73 20 2e 2e 2e | 22 20 6d 65 73 73 61 67 |s %s ...|" messag|
|00001300| 65 20 22 25 73 22 20 6d | 63 2d 70 72 6f 63 65 73 |e "%s" m|c-proces|
|00001310| 73 2d 72 65 67 69 6f 6e | 20 73 74 61 72 74 20 65 |s-region| start e|
|00001320| 6e 64 20 6d 63 2d 70 67 | 70 2d 70 61 74 68 20 6d |nd mc-pg|p-path m|
|00001330| 63 2d 70 67 70 2d 67 65 | 6e 65 72 69 63 2d 70 61 |c-pgp-ge|neric-pa|
|00001340| 72 73 65 72 20 72 65 2d | 73 65 61 72 63 68 2d 66 |rser re-|search-f|
|00001350| 6f 72 77 61 72 64 20 6d | 63 2d 70 67 70 2d 6e 6f |orward m|c-pgp-no|
|00001360| 6b 65 79 2d 72 65 20 65 | 72 72 6f 72 20 22 54 68 |key-re e|rror "Th|
|00001370| 69 73 20 73 68 6f 75 6c | 64 20 6e 65 76 65 72 20 |is shoul|d never |
|00001380| 68 61 70 70 65 6e 2e 22 | 20 62 75 66 66 65 72 2d |happen."| buffer-|
|00001390| 73 75 62 73 74 72 69 6e | 67 2d 6e 6f 2d 70 72 6f |substrin|g-no-pro|
|000013a0| 70 65 72 74 69 65 73 20 | 31 20 22 4b 65 79 20 66 |perties |1 "Key f|
|000013b0| 6f 72 20 27 25 73 27 20 | 6e 6f 74 20 66 6f 75 6e |or '%s' |not foun|
|000013c0| 64 3b 20 74 72 79 20 74 | 6f 20 66 65 74 63 68 3f |d; try t|o fetch?|
|000013d0| 20 22 20 6d 63 2d 70 67 | 70 2d 66 65 74 63 68 2d | " mc-pg|p-fetch-|
|000013e0| 6b 65 79 20 6d 63 2d 70 | 67 70 2d 65 6e 63 72 79 |key mc-p|gp-encry|
|000013f0| 70 74 2d 72 65 67 69 6f | 6e 20 22 25 73 20 44 6f |pt-regio|n "%s Do|
|00001400| 6e 65 2e 22 5d 20 31 30 | 5d 20 6d 63 2d 70 67 70 |ne."] 10|] mc-pgp|
|00001410| 2d 64 65 63 72 79 70 74 | 2d 70 61 72 73 65 72 20 |-decrypt|-parser |
|00001420| 23 5b 28 72 65 73 75 6c | 74 29 20 22 65 62 88 08 |#[(resul|t) "eb..|
|00001430| c1 3d ab 91 c2 c3 21 88 | c4 c5 21 ab 84 c1 95 62 |.=....!.|..!....b|
|00001440| 88 60 64 42 87 08 c6 3d | ab a3 c2 c7 21 88 c6 94 |.`dB...=|....!...|
|00001450| c6 95 3d ab 8b c4 c8 21 | ab 8f c1 95 62 88 aa 89 |..=....!|....b...|
|00001460| c4 c9 21 ab 84 c1 95 62 | 88 60 64 42 87 ca 87 22 |..!....b|.`dB..."|
|00001470| 20 5b 72 65 73 75 6c 74 | 20 30 20 72 65 2d 73 65 | [result| 0 re-se|
|00001480| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5e 53 |arch-for|ward "^S|
|00001490| 69 67 6e 61 74 75 72 65 | 20 6d 61 64 65 2e 2a 5c |ignature| made.*\|
|000014a0| 6e 22 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 07 |n" looki|ng-at ".|
|000014b0| 5c 6e 57 41 52 4e 49 4e | 47 3a 20 20 42 65 63 61 |\nWARNIN|G:  Beca|
|000014c0| 75 73 65 20 74 68 69 73 | 20 70 75 62 6c 69 63 20 |use this| public |
|000014d0| 6b 65 79 2e 2a 5c 6e 2e | 2a 5c 6e 2e 2a 5c 6e 22 |key.*\n.|*\n.*\n"|
|000014e0| 20 31 20 22 5c 5c 28 46 | 69 6c 65 20 69 73 20 63 | 1 "\\(F|ile is c|
|000014f0| 6f 6e 76 65 6e 74 69 6f | 6e 61 6c 6c 79 20 65 6e |onventio|nally en|
|00001500| 63 72 79 70 74 65 64 5c | 5c 2e 20 2a 5c 5c 29 3f |crypted\|\. *\\)?|
|00001510| 4a 75 73 74 20 61 20 6d | 6f 6d 65 6e 74 5c 5c 2e |Just a m|oment\\.|
|00001520| 2b 22 20 22 5c 6e 46 69 | 6c 65 20 68 61 73 20 73 |+" "\nFi|le has s|
|00001530| 69 67 6e 61 74 75 72 65 | 2e 2a 5c 5c 28 5c 6e 07 |ignature|.*\\(\n.|
|00001540| 2e 2a 5c 6e 5c 5c 29 2a | 5c 6e 57 41 52 4e 49 4e |.*\n\\)*|\nWARNIN|
|00001550| 47 3a 2e 2a 5c 6e 22 20 | 22 50 61 73 73 20 70 68 |G:.*\n" |"Pass ph|
|00001560| 72 61 73 65 20 61 70 70 | 65 61 72 73 20 67 6f 6f |rase app|ears goo|
|00001570| 64 5c 5c 2e 20 5c 5c 2e | 22 20 6e 69 6c 5d 20 32 |d\\. \\.|" nil] 2|
|00001580| 5d 20 6d 63 2d 70 67 70 | 2d 64 65 63 72 79 70 74 |] mc-pgp|-decrypt|
|00001590| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 73 74 61 72 74 |-region |#[(start|
|000015a0| 20 65 6e 64 20 26 6f 70 | 74 69 6f 6e 61 6c 20 69 | end &op|tional i|
|000015b0| 64 29 20 22 08 c1 5c 6e | 21 70 c3 89 89 89 89 89 |d) "..\n|!p......|
|000015c0| 1c 1d 1e 06 1e 07 1e 08 | 1e 09 1e 5c 6e 1e 0b 18 |........|...\n...|
|000015d0| cc 20 88 cd 0e 0e ae 82 | 0e 0f 21 89 16 08 ab 94 |. ......|..!.....|
|000015e0| d0 0e 08 41 0e 0e ad 89 | d1 d2 0e 08 40 0e 08 41 |...A....|....@..A|
|000015f0| 23 5c 22 aa 85 d0 0e 0e | d3 5c 22 89 16 06 ab 85 |#\".....|.\".....|
|00001600| d4 d5 d6 5c 22 88 d7 16 | 09 0e 18 ab 8c d9 0e 09 |...\"...|........|
|00001610| d1 da 0e 18 5c 22 43 5c | 22 16 09 db dc 21 88 dd |....\"C\|"....!..|
|00001620| 0e 1e 0e 1f 0e 06 0e 20 | 0e 09 e1 0e 0b 26 07 89 |....... |.....&..|
|00001630| 15 ab d0 db e2 21 88 8a | 0e 0b 71 88 65 62 88 e3 |.....!..|..q.eb..|
|00001640| 0e 24 c3 e5 23 ab 89 e6 | e7 e8 94 e8 95 5c 22 50 |.$..#...|.....\"P|
|00001650| 14 29 0c ab a1 e9 d1 ea | 0c 5c 22 21 ab 99 eb c3 |.)......|.\"!....|
|00001660| 0c 42 21 ab 92 ec 20 88 | ed e8 21 88 ee 0e 1e 0e |.B!... .|..!.....|
|00001670| 1f 0e 0e 23 82 43 01 ef | 0e 24 0e 0b 5c 22 88 e5 |...#.C..|.$..\"..|
|00001680| 0d f0 3d 42 aa fb 0e 0b | 71 ab b4 65 62 ab b0 e3 |..=B....|q..eb...|
|00001690| f1 c3 e5 23 ab a9 cd e6 | e7 e8 94 e8 95 5c 22 50 |...#....|.....\"P|
|000016a0| 21 89 16 07 ab 9a 0e 0e | ab 87 0e 08 0e 07 9a ac |!.......|........|
|000016b0| 8f 0e 5c 6e 71 88 ee 0e | 1e 0e 1f 0e 07 41 23 aa |..\nq...|.....A#.|
|000016c0| c2 0e 0b 71 ab a0 65 62 | ab 9c e3 f2 c3 e5 23 ab |...q..eb|......#.|
|000016d0| 95 0e 5c 6e 71 88 0e 08 | ac 84 f3 e5 21 88 ee 0e |..\nq...|....!...|
|000016e0| 1e 0e 1f f4 23 aa 9d f5 | 0e 0b 21 88 ef f6 0e 0b |....#...|..!.....|
|000016f0| 5c 22 ab 86 f3 e5 21 88 | aa 88 ef 0e 37 0e 0b f8 |\"....!.|....7...|
|00001700| 23 88 c3 89 42 2e 09 87 | 22 20 5b 70 72 6f 63 65 |#...B...|" [proce|
|00001710| 73 73 2d 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 67 |ss-envir|onment g|
|00001720| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00001730| 20 6d 63 2d 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 | mc-buff|er-name |
|00001740| 6e 69 6c 20 70 67 70 2d | 69 64 20 72 65 73 75 6c |nil pgp-|id resul|
|00001750| 74 20 70 61 73 73 77 64 | 20 6e 65 77 2d 6b 65 79 |t passwd| new-key|
|00001760| 20 6b 65 79 20 61 72 67 | 73 20 6f 62 75 66 20 62 | key arg|s obuf b|
|00001770| 75 66 66 65 72 20 75 6e | 64 6f 2d 62 6f 75 6e 64 |uffer un|do-bound|
|00001780| 61 72 79 20 6d 63 2d 70 | 67 70 2d 6c 6f 6f 6b 75 |ary mc-p|gp-looku|
|00001790| 70 2d 6b 65 79 20 69 64 | 20 6d 63 2d 70 67 70 2d |p-key id| mc-pgp-|
|000017a0| 75 73 65 72 2d 69 64 20 | 6d 63 2d 61 63 74 69 76 |user-id |mc-activ|
|000017b0| 61 74 65 2d 70 61 73 73 | 77 64 20 66 6f 72 6d 61 |ate-pass|wd forma|
|000017c0| 74 20 22 50 47 50 20 70 | 61 73 73 70 68 72 61 73 |t "PGP p|assphras|
|000017d0| 65 20 66 6f 72 20 25 73 | 20 28 25 73 29 3a 20 22 |e for %s| (%s): "|
|000017e0| 20 22 50 47 50 20 70 61 | 73 73 70 68 72 61 73 65 | "PGP pa|ssphrase|
|000017f0| 20 66 6f 72 20 63 6f 6e | 76 65 6e 74 69 6f 6e 61 | for con|ventiona|
|00001800| 6c 20 64 65 63 72 79 70 | 74 69 6f 6e 3a 20 22 20 |l decryp|tion: " |
|00001810| 73 65 74 65 6e 76 20 22 | 50 47 50 50 41 53 53 46 |setenv "|PGPPASSF|
|00001820| 44 22 20 22 30 22 20 28 | 22 2b 76 65 72 62 6f 73 |D" "0" (|"+verbos|
|00001830| 65 3d 31 22 20 22 2b 62 | 61 74 63 68 6d 6f 64 65 |e=1" "+b|atchmode|
|00001840| 22 20 22 2b 6c 61 6e 67 | 75 61 67 65 3d 65 6e 22 |" "+lang|uage=en"|
|00001850| 20 22 2d 66 22 29 20 6d | 63 2d 70 67 70 2d 61 6c | "-f") m|c-pgp-al|
|00001860| 74 65 72 6e 61 74 65 2d | 6b 65 79 72 69 6e 67 20 |ternate-|keyring |
|00001870| 61 70 70 65 6e 64 20 22 | 2b 70 75 62 72 69 6e 67 |append "|+pubring|
|00001880| 3d 25 73 22 20 6d 65 73 | 73 61 67 65 20 22 44 65 |=%s" mes|sage "De|
|00001890| 63 72 79 70 74 69 6e 67 | 2e 2e 2e 22 20 6d 63 2d |crypting|..." mc-|
|000018a0| 70 72 6f 63 65 73 73 2d | 72 65 67 69 6f 6e 20 73 |process-|region s|
|000018b0| 74 61 72 74 20 65 6e 64 | 20 6d 63 2d 70 67 70 2d |tart end| mc-pgp-|
|000018c0| 70 61 74 68 20 6d 63 2d | 70 67 70 2d 64 65 63 72 |path mc-|pgp-decr|
|000018d0| 79 70 74 2d 70 61 72 73 | 65 72 20 22 44 65 63 72 |ypt-pars|er "Decr|
|000018e0| 79 70 74 69 6e 67 2e 2e | 2e 20 44 6f 6e 65 2e 22 |ypting..|. Done."|
|000018f0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001900| 72 64 20 6d 63 2d 70 67 | 70 2d 6b 65 79 2d 65 78 |rd mc-pg|p-key-ex|
|00001910| 70 65 63 74 65 64 2d 72 | 65 20 74 20 22 30 78 22 |pected-r|e t "0x"|
|00001920| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00001930| 67 2d 6e 6f 2d 70 72 6f | 70 65 72 74 69 65 73 20 |g-no-pro|perties |
|00001940| 31 20 79 2d 6f 72 2d 6e | 2d 70 20 22 4b 65 79 20 |1 y-or-n|-p "Key |
|00001950| 25 73 20 6e 6f 74 20 66 | 6f 75 6e 64 3b 20 61 74 |%s not f|ound; at|
|00001960| 74 65 6d 70 74 20 74 6f | 20 66 65 74 63 68 3f 20 |tempt to| fetch? |
|00001970| 22 20 6d 63 2d 70 67 70 | 2d 66 65 74 63 68 2d 6b |" mc-pgp|-fetch-k|
|00001980| 65 79 20 75 6e 64 6f 2d | 73 74 61 72 74 20 75 6e |ey undo-|start un|
|00001990| 64 6f 2d 6d 6f 72 65 20 | 6d 63 2d 70 67 70 2d 64 |do-more |mc-pgp-d|
|000019a0| 65 63 72 79 70 74 2d 72 | 65 67 69 6f 6e 20 6d 63 |ecrypt-r|egion mc|
|000019b0| 2d 6d 65 73 73 61 67 65 | 20 30 20 22 5e 4b 65 79 |-message| 0 "^Key|
|000019c0| 20 66 6f 72 20 75 73 65 | 72 20 49 44 3a 2e 2a 5c | for use|r ID:.*\|
|000019d0| 6e 2e 2a 4b 65 79 20 49 | 44 20 5c 5c 28 5b 30 2d |n.*Key I|D \\([0-|
|000019e0| 39 41 2d 46 5d 2b 5c 5c | 29 22 20 22 5e 46 69 6c |9A-F]+\\|)" "^Fil|
|000019f0| 65 20 69 73 20 63 6f 6e | 76 65 6e 74 69 6f 6e 61 |e is con|ventiona|
|00001a00| 6c 6c 79 20 65 6e 63 72 | 79 70 74 65 64 22 20 6d |lly encr|ypted" m|
|00001a10| 63 2d 64 65 61 63 74 69 | 76 61 74 65 2d 70 61 73 |c-deacti|vate-pas|
|00001a20| 73 77 64 20 22 2a 2a 2a | 2a 2a 20 43 4f 4e 56 45 |swd "***|** CONVE|
|00001a30| 4e 54 49 4f 4e 41 4c 20 | 2a 2a 2a 2a 2a 22 20 6d |NTIONAL |*****" m|
|00001a40| 63 2d 64 69 73 70 6c 61 | 79 2d 62 75 66 66 65 72 |c-displa|y-buffer|
|00001a50| 20 22 5e 07 45 72 72 6f | 72 3a 20 2b 42 61 64 20 | "^.Erro|r: +Bad |
|00001a60| 70 61 73 73 20 70 68 72 | 61 73 65 5c 5c 2e 24 22 |pass phr|ase\\.$"|
|00001a70| 20 6d 63 2d 70 67 70 2d | 65 72 72 6f 72 2d 72 65 | mc-pgp-|error-re|
|00001a80| 20 22 45 72 72 6f 72 20 | 64 65 63 72 79 70 74 69 | "Error |decrypti|
|00001a90| 6e 67 20 62 75 66 66 65 | 72 22 5d 20 31 30 5d 20 |ng buffe|r"] 10] |
|00001aa0| 6d 63 2d 70 67 70 2d 73 | 69 67 6e 2d 72 65 67 69 |mc-pgp-s|ign-regi|
|00001ab0| 6f 6e 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 20 |on #[(st|art end |
|00001ac0| 26 6f 70 74 69 6f 6e 61 | 6c 20 69 64 20 75 6e 63 |&optiona|l id unc|
|00001ad0| 6c 65 61 72 29 20 22 08 | c1 5c 6e 21 c3 89 89 1c |lear) ".|.\n!....|
|00001ae0| 1d 1e 06 1e 07 18 c8 0e | 09 ae 82 0e 5c 6e 21 14 |........|....\n!.|
|00001af0| cb 0c 41 cc cd 0c 40 0c | 41 23 5c 22 16 06 ce cf |..A...@.|A#\"....|
|00001b00| d0 5c 22 88 d1 d2 d3 cc | d4 0e 15 ab 83 d6 aa 81 |.\".....|........|
|00001b10| d7 5c 22 d8 d9 0c 41 af | 07 15 0e 1a ab 88 cc db |.\"...A.|........|
|00001b20| 0e 1a 5c 22 0d 42 15 dc | dd 0c 40 5c 22 88 de 0e |..\".B..|..@\"...|
|00001b30| 1f 0e 20 0e 06 0e 21 0d | e2 0e 07 26 07 ad 87 dc |.. ...!.|...&....|
|00001b40| e3 0c 40 5c 22 88 e4 2d | 87 22 20 5b 70 72 6f 63 |..@\"..-|." [proc|
|00001b50| 65 73 73 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |ess-envi|ronment |
|00001b60| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001b70| 65 20 6d 63 2d 62 75 66 | 66 65 72 2d 6e 61 6d 65 |e mc-buf|fer-name|
|00001b80| 20 6e 69 6c 20 6b 65 79 | 20 61 72 67 73 20 70 61 | nil key| args pa|
|00001b90| 73 73 77 64 20 62 75 66 | 66 65 72 20 6d 63 2d 70 |sswd buf|fer mc-p|
|00001ba0| 67 70 2d 6c 6f 6f 6b 75 | 70 2d 6b 65 79 20 69 64 |gp-looku|p-key id|
|00001bb0| 20 6d 63 2d 70 67 70 2d | 75 73 65 72 2d 69 64 20 | mc-pgp-|user-id |
|00001bc0| 6d 63 2d 61 63 74 69 76 | 61 74 65 2d 70 61 73 73 |mc-activ|ate-pass|
|00001bd0| 77 64 20 66 6f 72 6d 61 | 74 20 22 50 47 50 20 70 |wd forma|t "PGP p|
|00001be0| 61 73 73 70 68 72 61 73 | 65 20 66 6f 72 20 25 73 |assphras|e for %s|
|00001bf0| 20 28 25 73 29 3a 20 22 | 20 73 65 74 65 6e 76 20 | (%s): "| setenv |
|00001c00| 22 50 47 50 50 41 53 53 | 46 44 22 20 22 30 22 20 |"PGPPASS|FD" "0" |
|00001c10| 22 2d 66 61 73 74 22 20 | 22 2b 76 65 72 62 6f 73 |"-fast" |"+verbos|
|00001c20| 65 3d 31 22 20 22 2b 6c | 61 6e 67 75 61 67 65 3d |e=1" "+l|anguage=|
|00001c30| 65 6e 22 20 22 2b 63 6c | 65 61 72 73 69 67 3d 25 |en" "+cl|earsig=%|
|00001c40| 73 22 20 75 6e 63 6c 65 | 61 72 20 22 6f 66 66 22 |s" uncle|ar "off"|
|00001c50| 20 22 6f 6e 22 20 22 2b | 62 61 74 63 68 6d 6f 64 | "on" "+|batchmod|
|00001c60| 65 22 20 22 2d 75 22 20 | 6d 63 2d 70 67 70 2d 63 |e" "-u" |mc-pgp-c|
|00001c70| 6f 6d 6d 65 6e 74 20 22 | 2b 63 6f 6d 6d 65 6e 74 |omment "|+comment|
|00001c80| 3d 25 73 22 20 6d 65 73 | 73 61 67 65 20 22 53 69 |=%s" mes|sage "Si|
|00001c90| 67 6e 69 6e 67 20 61 73 | 20 25 73 20 2e 2e 2e 22 |gning as| %s ..."|
|00001ca0| 20 6d 63 2d 70 72 6f 63 | 65 73 73 2d 72 65 67 69 | mc-proc|ess-regi|
|00001cb0| 6f 6e 20 73 74 61 72 74 | 20 65 6e 64 20 6d 63 2d |on start| end mc-|
|00001cc0| 70 67 70 2d 70 61 74 68 | 20 6d 63 2d 70 67 70 2d |pgp-path| mc-pgp-|
|00001cd0| 67 65 6e 65 72 69 63 2d | 70 61 72 73 65 72 20 22 |generic-|parser "|
|00001ce0| 53 69 67 6e 69 6e 67 20 | 61 73 20 25 73 20 2e 2e |Signing |as %s ..|
|00001cf0| 2e 20 44 6f 6e 65 2e 22 | 20 74 5d 20 38 5d 20 6d |. Done."| t] 8] m|
|00001d00| 63 2d 70 67 70 2d 76 65 | 72 69 66 79 2d 70 61 72 |c-pgp-ve|rify-par|
|00001d10| 73 65 72 20 23 5b 28 72 | 65 73 75 6c 74 29 20 22 |ser #[(r|esult) "|
|00001d20| 08 c1 3d ab 88 c2 0b 70 | c4 23 88 c5 87 08 c6 3d |..=....p|.#.....=|
|00001d30| ab 89 c2 0e 07 70 c8 23 | 88 c9 87 c2 0e 07 70 ca |.....p.#|......p.|
|00001d40| cb 08 5c 22 23 88 c9 87 | 22 20 5b 72 65 73 75 6c |..\"#...|" [resul|
|00001d50| 74 20 30 20 6d 63 2d 6d | 65 73 73 61 67 65 20 6d |t 0 mc-m|essage m|
|00001d60| 63 2d 70 67 70 2d 73 69 | 67 6f 6b 2d 72 65 20 22 |c-pgp-si|gok-re "|
|00001d70| 47 6f 6f 64 20 73 69 67 | 6e 61 74 75 72 65 22 20 |Good sig|nature" |
|00001d80| 74 20 31 20 6d 63 2d 70 | 67 70 2d 65 72 72 6f 72 |t 1 mc-p|gp-error|
|00001d90| 2d 72 65 20 22 42 61 64 | 20 73 69 67 6e 61 74 75 |-re "Bad| signatu|
|00001da0| 72 65 22 20 6e 69 6c 20 | 66 6f 72 6d 61 74 20 22 |re" nil |format "|
|00001db0| 50 47 50 20 65 78 69 74 | 65 64 20 77 69 74 68 20 |PGP exit|ed with |
|00001dc0| 73 74 61 74 75 73 20 25 | 64 22 5d 20 36 5d 20 6d |status %|d"] 6] m|
|00001dd0| 63 2d 70 67 70 2d 76 65 | 72 69 66 79 2d 72 65 67 |c-pgp-ve|rify-reg|
|00001de0| 69 6f 6e 20 23 5b 28 73 | 74 61 72 74 20 65 6e 64 |ion #[(s|tart end|
|00001df0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6e 6f 2d 66 65 | &option|al no-fe|
|00001e00| 74 63 68 29 20 22 c0 09 | 21 70 c2 89 1b 1c 1d 1e |tch) "..|!p......|
|00001e10| 06 c7 14 0e 08 ab 8a c9 | 0c ca cb 0e 08 5c 22 43 |........|.....\"C|
|00001e20| 5c 22 14 cc cd 21 88 ce | 0e 0f 0e 10 c2 0e 11 0c |\"...!..|........|
|00001e30| d2 0e 06 26 07 ab 83 d3 | aa c5 8a 0e 06 71 88 65 |...&....|.....q.e|
|00001e40| 62 88 0e 14 ac b0 d5 0e | 16 c2 d3 23 ab a8 d7 d8 |b.......|...#....|
|00001e50| d9 94 d9 95 5c 22 50 89 | 13 ab 9c da ca db 0b 5c |....\"P.|.......\|
|00001e60| 22 21 ab 94 dc c2 0b 42 | 21 ab 8d 0d 71 ab 89 dd |"!.....B|!...q...|
|00001e70| 0e 0f 0e 10 d3 23 aa 88 | de 0e 1f 0e 06 5c 22 88 |.....#..|.....\".|
|00001e80| c2 29 2c 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |.),." [g|et-buffe|
|00001e90| 72 2d 63 72 65 61 74 65 | 20 6d 63 2d 62 75 66 66 |r-create| mc-buff|
|00001ea0| 65 72 2d 6e 61 6d 65 20 | 6e 69 6c 20 70 67 70 2d |er-name |nil pgp-|
|00001eb0| 69 64 20 61 72 67 73 20 | 6f 62 75 66 20 62 75 66 |id args |obuf buf|
|00001ec0| 66 65 72 20 28 22 2b 76 | 65 72 62 6f 73 65 3d 31 |fer ("+v|erbose=1|
|00001ed0| 22 20 22 2b 62 61 74 63 | 68 6d 6f 64 65 22 20 22 |" "+batc|hmode" "|
|00001ee0| 2b 6c 61 6e 67 75 61 67 | 65 3d 65 6e 22 20 22 2d |+languag|e=en" "-|
|00001ef0| 66 22 29 20 6d 63 2d 70 | 67 70 2d 61 6c 74 65 72 |f") mc-p|gp-alter|
|00001f00| 6e 61 74 65 2d 6b 65 79 | 72 69 6e 67 20 61 70 70 |nate-key|ring app|
|00001f10| 65 6e 64 20 66 6f 72 6d | 61 74 20 22 2b 70 75 62 |end form|at "+pub|
|00001f20| 72 69 6e 67 3d 25 73 22 | 20 6d 65 73 73 61 67 65 |ring=%s"| message|
|00001f30| 20 22 56 65 72 69 66 79 | 69 6e 67 2e 2e 2e 22 20 | "Verify|ing..." |
|00001f40| 6d 63 2d 70 72 6f 63 65 | 73 73 2d 72 65 67 69 6f |mc-proce|ss-regio|
|00001f50| 6e 20 73 74 61 72 74 20 | 65 6e 64 20 6d 63 2d 70 |n start |end mc-p|
|00001f60| 67 70 2d 70 61 74 68 20 | 6d 63 2d 70 67 70 2d 76 |gp-path |mc-pgp-v|
|00001f70| 65 72 69 66 79 2d 70 61 | 72 73 65 72 20 74 20 6e |erify-pa|rser t n|
|00001f80| 6f 2d 66 65 74 63 68 20 | 72 65 2d 73 65 61 72 63 |o-fetch |re-searc|
|00001f90| 68 2d 66 6f 72 77 61 72 | 64 20 6d 63 2d 70 67 70 |h-forwar|d mc-pgp|
|00001fa0| 2d 6b 65 79 2d 65 78 70 | 65 63 74 65 64 2d 72 65 |-key-exp|ected-re|
|00001fb0| 20 22 30 78 22 20 62 75 | 66 66 65 72 2d 73 75 62 | "0x" bu|ffer-sub|
|00001fc0| 73 74 72 69 6e 67 2d 6e | 6f 2d 70 72 6f 70 65 72 |string-n|o-proper|
|00001fd0| 74 69 65 73 20 31 20 79 | 2d 6f 72 2d 6e 2d 70 20 |ties 1 y|-or-n-p |
|00001fe0| 22 4b 65 79 20 25 73 20 | 6e 6f 74 20 66 6f 75 6e |"Key %s |not foun|
|00001ff0| 64 3b 20 61 74 74 65 6d | 70 74 20 74 6f 20 66 65 |d; attem|pt to fe|
|00002000| 74 63 68 3f 20 22 20 6d | 63 2d 70 67 70 2d 66 65 |tch? " m|c-pgp-fe|
|00002010| 74 63 68 2d 6b 65 79 20 | 6d 63 2d 70 67 70 2d 76 |tch-key |mc-pgp-v|
|00002020| 65 72 69 66 79 2d 72 65 | 67 69 6f 6e 20 6d 63 2d |erify-re|gion mc-|
|00002030| 6d 65 73 73 61 67 65 20 | 6d 63 2d 70 67 70 2d 65 |message |mc-pgp-e|
|00002040| 72 72 6f 72 2d 72 65 5d | 20 38 5d 20 6d 63 2d 70 |rror-re]| 8] mc-p|
|00002050| 67 70 2d 69 6e 73 65 72 | 74 2d 70 75 62 6c 69 63 |gp-inser|t-public|
|00002060| 2d 6b 65 79 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |-key #[(|&optiona|
|00002070| 6c 20 69 64 29 20 22 c0 | 09 21 c2 1b 1c 0d ae 82 |l id) ".|.!......|
|00002080| 0e 06 15 c7 c8 c9 ca 0d | af 05 13 0e 0b ab 88 cc |........|........|
|00002090| cd 0e 0b 5c 22 0b 42 13 | 0e 0e ab 8a cf 0b cc d0 |...\".B.|........|
|000020a0| 0e 0e 5c 22 43 5c 22 13 | d1 60 60 c2 0e 12 0b d3 |..\"C\".|.``.....|
|000020b0| 0c 26 07 ad 86 d4 d5 0c | 5c 22 88 d6 2a 87 22 20 |.&......|\"..*." |
|000020c0| 5b 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |[get-buf|fer-crea|
|000020d0| 74 65 20 6d 63 2d 62 75 | 66 66 65 72 2d 6e 61 6d |te mc-bu|ffer-nam|
|000020e0| 65 20 6e 69 6c 20 61 72 | 67 73 20 62 75 66 66 65 |e nil ar|gs buffe|
|000020f0| 72 20 69 64 20 6d 63 2d | 70 67 70 2d 75 73 65 72 |r id mc-|pgp-user|
|00002100| 2d 69 64 20 22 2b 76 65 | 72 62 6f 73 65 3d 31 22 |-id "+ve|rbose=1"|
|00002110| 20 22 2b 62 61 74 63 68 | 6d 6f 64 65 22 20 22 2b | "+batch|mode" "+|
|00002120| 6c 61 6e 67 75 61 67 65 | 3d 65 6e 22 20 22 2d 6b |language|=en" "-k|
|00002130| 78 61 66 22 20 6d 63 2d | 70 67 70 2d 63 6f 6d 6d |xaf" mc-|pgp-comm|
|00002140| 65 6e 74 20 66 6f 72 6d | 61 74 20 22 2b 63 6f 6d |ent form|at "+com|
|00002150| 6d 65 6e 74 3d 25 73 22 | 20 6d 63 2d 70 67 70 2d |ment=%s"| mc-pgp-|
|00002160| 61 6c 74 65 72 6e 61 74 | 65 2d 6b 65 79 72 69 6e |alternat|e-keyrin|
|00002170| 67 20 61 70 70 65 6e 64 | 20 22 2b 70 75 62 72 69 |g append| "+pubri|
|00002180| 6e 67 3d 25 73 22 20 6d | 63 2d 70 72 6f 63 65 73 |ng=%s" m|c-proces|
|00002190| 73 2d 72 65 67 69 6f 6e | 20 6d 63 2d 70 67 70 2d |s-region| mc-pgp-|
|000021a0| 70 61 74 68 20 6d 63 2d | 70 67 70 2d 67 65 6e 65 |path mc-|pgp-gene|
|000021b0| 72 69 63 2d 70 61 72 73 | 65 72 20 6d 63 2d 6d 65 |ric-pars|er mc-me|
|000021c0| 73 73 61 67 65 20 22 4b | 65 79 20 66 6f 72 20 75 |ssage "K|ey for u|
|000021d0| 73 65 72 20 49 44 3a 20 | 2e 2a 22 20 74 5d 20 38 |ser ID: |.*" t] 8|
|000021e0| 5d 20 6d 63 2d 70 67 70 | 2d 73 6e 61 72 66 2d 70 |] mc-pgp|-snarf-p|
|000021f0| 61 72 73 65 72 20 23 5b | 28 72 65 73 75 6c 74 29 |arser #[|(result)|
|00002200| 20 22 08 c1 3d 87 22 20 | 5b 72 65 73 75 6c 74 20 | "..=." |[result |
|00002210| 30 5d 20 32 5d 20 6d 63 | 2d 70 67 70 2d 73 6e 61 |0] 2] mc|-pgp-sna|
|00002220| 72 66 2d 6b 65 79 73 20 | 23 5b 28 73 74 61 72 74 |rf-keys |#[(start|
|00002230| 20 65 6e 64 29 20 22 c0 | 09 21 c2 89 1b 1c 1d c6 | end) ".|.!......|
|00002240| 13 0e 07 ab 8a c8 0b c9 | ca 0e 07 5c 22 43 5c 22 |........|...\"C\"|
|00002250| 13 cb cc 21 88 cd 0e 0e | 0e 0f c2 0e 10 0b d1 0d |...!....|........|
|00002260| 26 07 ab ad 8a 0d 71 88 | 65 62 88 d2 0e 13 c2 d4 |&.....q.|eb......|
|00002270| 23 ad 9b 0e 15 ab 84 d6 | 0d 21 88 d7 d8 94 d8 95 |#.......|.!......|
|00002280| 5c 22 89 14 d9 9a ab 83 | da aa 84 db 0c 21 40 29 |\"......|.....!@)|
|00002290| aa 8c d6 0d 21 88 dc 0e | 1d 0d de 23 88 da 2b 87 |....!...|...#..+.|
|000022a0| 22 20 5b 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |" [get-b|uffer-cr|
|000022b0| 65 61 74 65 20 6d 63 2d | 62 75 66 66 65 72 2d 6e |eate mc-|buffer-n|
|000022c0| 61 6d 65 20 6e 69 6c 20 | 61 72 67 73 20 74 6d 70 |ame nil |args tmp|
|000022d0| 73 74 72 20 62 75 66 66 | 65 72 20 28 22 2b 76 65 |str buff|er ("+ve|
|000022e0| 72 62 6f 73 65 3d 31 22 | 20 22 2b 62 61 74 63 68 |rbose=1"| "+batch|
|000022f0| 6d 6f 64 65 22 20 22 2b | 6c 61 6e 67 75 61 67 65 |mode" "+|language|
|00002300| 3d 65 6e 22 20 22 2d 6b | 61 66 22 29 20 6d 63 2d |=en" "-k|af") mc-|
|00002310| 70 67 70 2d 61 6c 74 65 | 72 6e 61 74 65 2d 6b 65 |pgp-alte|rnate-ke|
|00002320| 79 72 69 6e 67 20 61 70 | 70 65 6e 64 20 66 6f 72 |yring ap|pend for|
|00002330| 6d 61 74 20 22 2b 70 75 | 62 72 69 6e 67 3d 25 73 |mat "+pu|bring=%s|
|00002340| 22 20 6d 65 73 73 61 67 | 65 20 22 53 6e 61 72 66 |" messag|e "Snarf|
|00002350| 69 6e 67 2e 2e 2e 22 20 | 6d 63 2d 70 72 6f 63 65 |ing..." |mc-proce|
|00002360| 73 73 2d 72 65 67 69 6f | 6e 20 73 74 61 72 74 20 |ss-regio|n start |
|00002370| 65 6e 64 20 6d 63 2d 70 | 67 70 2d 70 61 74 68 20 |end mc-p|gp-path |
|00002380| 6d 63 2d 70 67 70 2d 73 | 6e 61 72 66 2d 70 61 72 |mc-pgp-s|narf-par|
|00002390| 73 65 72 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |ser re-s|earch-fo|
|000023a0| 72 77 61 72 64 20 6d 63 | 2d 70 67 70 2d 6e 65 77 |rward mc|-pgp-new|
|000023b0| 6b 65 79 2d 72 65 20 74 | 20 6d 63 2d 70 67 70 2d |key-re t| mc-pgp-|
|000023c0| 64 69 73 70 6c 61 79 2d | 73 6e 61 72 66 2d 6f 75 |display-|snarf-ou|
|000023d0| 74 70 75 74 20 6d 63 2d | 64 69 73 70 6c 61 79 2d |tput mc-|display-|
|000023e0| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 2d 73 75 |buffer b|uffer-su|
|000023f0| 62 73 74 72 69 6e 67 2d | 6e 6f 2d 70 72 6f 70 65 |bstring-|no-prope|
|00002400| 72 74 69 65 73 20 31 20 | 22 4e 6f 22 20 30 20 72 |rties 1 |"No" 0 r|
|00002410| 65 61 64 2d 66 72 6f 6d | 2d 73 74 72 69 6e 67 20 |ead-from|-string |
|00002420| 6d 63 2d 6d 65 73 73 61 | 67 65 20 6d 63 2d 70 67 |mc-messa|ge mc-pg|
|00002430| 70 2d 65 72 72 6f 72 2d | 72 65 20 22 45 72 72 6f |p-error-|re "Erro|
|00002440| 72 20 73 6e 61 72 66 69 | 6e 67 20 50 47 50 20 6b |r snarfi|ng PGP k|
|00002450| 65 79 73 22 5d 20 39 5d | 20 6d 63 2d 73 63 68 65 |eys"] 9]| mc-sche|
|00002460| 6d 65 2d 70 67 70 20 23 | 5b 6e 69 6c 20 22 c0 c1 |me-pgp #|[nil "..|
|00002470| 42 c2 c3 42 c4 c5 42 c6 | c7 42 c8 c9 42 ca cb 42 |B..B..B.|.B..B..B|
|00002480| cc 0e 0d 42 ce 0e 0f 42 | d0 0e 11 42 d2 0e 13 42 |...B...B|...B...B|
|00002490| d4 0e 15 42 d6 0e 17 42 | d8 0e 19 42 af 0d 87 22 |...B...B|...B..."|
|000024a0| 20 5b 65 6e 63 72 79 70 | 74 69 6f 6e 2d 66 75 6e | [encryp|tion-fun|
|000024b0| 63 20 6d 63 2d 70 67 70 | 2d 65 6e 63 72 79 70 74 |c mc-pgp|-encrypt|
|000024c0| 2d 72 65 67 69 6f 6e 20 | 64 65 63 72 79 70 74 69 |-region |decrypti|
|000024d0| 6f 6e 2d 66 75 6e 63 20 | 6d 63 2d 70 67 70 2d 64 |on-func |mc-pgp-d|
|000024e0| 65 63 72 79 70 74 2d 72 | 65 67 69 6f 6e 20 73 69 |ecrypt-r|egion si|
|000024f0| 67 6e 69 6e 67 2d 66 75 | 6e 63 20 6d 63 2d 70 67 |gning-fu|nc mc-pg|
|00002500| 70 2d 73 69 67 6e 2d 72 | 65 67 69 6f 6e 20 76 65 |p-sign-r|egion ve|
|00002510| 72 69 66 69 63 61 74 69 | 6f 6e 2d 66 75 6e 63 20 |rificati|on-func |
|00002520| 6d 63 2d 70 67 70 2d 76 | 65 72 69 66 79 2d 72 65 |mc-pgp-v|erify-re|
|00002530| 67 69 6f 6e 20 6b 65 79 | 2d 69 6e 73 65 72 74 69 |gion key|-inserti|
|00002540| 6f 6e 2d 66 75 6e 63 20 | 6d 63 2d 70 67 70 2d 69 |on-func |mc-pgp-i|
|00002550| 6e 73 65 72 74 2d 70 75 | 62 6c 69 63 2d 6b 65 79 |nsert-pu|blic-key|
|00002560| 20 73 6e 61 72 66 2d 66 | 75 6e 63 20 6d 63 2d 70 | snarf-f|unc mc-p|
|00002570| 67 70 2d 73 6e 61 72 66 | 2d 6b 65 79 73 20 6d 73 |gp-snarf|-keys ms|
|00002580| 67 2d 62 65 67 69 6e 2d | 6c 69 6e 65 20 6d 63 2d |g-begin-|line mc-|
|00002590| 70 67 70 2d 6d 73 67 2d | 62 65 67 69 6e 2d 6c 69 |pgp-msg-|begin-li|
|000025a0| 6e 65 20 6d 73 67 2d 65 | 6e 64 2d 6c 69 6e 65 20 |ne msg-e|nd-line |
|000025b0| 6d 63 2d 70 67 70 2d 6d | 73 67 2d 65 6e 64 2d 6c |mc-pgp-m|sg-end-l|
|000025c0| 69 6e 65 20 73 69 67 6e | 65 64 2d 62 65 67 69 6e |ine sign|ed-begin|
|000025d0| 2d 6c 69 6e 65 20 6d 63 | 2d 70 67 70 2d 73 69 67 |-line mc|-pgp-sig|
|000025e0| 6e 65 64 2d 62 65 67 69 | 6e 2d 6c 69 6e 65 20 73 |ned-begi|n-line s|
|000025f0| 69 67 6e 65 64 2d 65 6e | 64 2d 6c 69 6e 65 20 6d |igned-en|d-line m|
|00002600| 63 2d 70 67 70 2d 73 69 | 67 6e 65 64 2d 65 6e 64 |c-pgp-si|gned-end|
|00002610| 2d 6c 69 6e 65 20 6b 65 | 79 2d 62 65 67 69 6e 2d |-line ke|y-begin-|
|00002620| 6c 69 6e 65 20 6d 63 2d | 70 67 70 2d 6b 65 79 2d |line mc-|pgp-key-|
|00002630| 62 65 67 69 6e 2d 6c 69 | 6e 65 20 6b 65 79 2d 65 |begin-li|ne key-e|
|00002640| 6e 64 2d 6c 69 6e 65 20 | 6d 63 2d 70 67 70 2d 6b |nd-line |mc-pgp-k|
|00002650| 65 79 2d 65 6e 64 2d 6c | 69 6e 65 20 75 73 65 72 |ey-end-l|ine user|
|00002660| 2d 69 64 20 6d 63 2d 70 | 67 70 2d 75 73 65 72 2d |-id mc-p|gp-user-|
|00002670| 69 64 5d 20 31 34 5d 5d | 20 32 29 0a 28 64 65 66 |id] 14]]| 2).(def|
|00002680| 76 61 72 20 6d 63 2d 70 | 67 70 2d 6b 65 79 73 65 |var mc-p|gp-keyse|
|00002690| 72 76 65 72 2d 75 72 6c | 2d 74 65 6d 70 6c 61 74 |rver-url|-templat|
|000026a0| 65 20 22 2f 68 74 62 69 | 6e 2f 70 6b 73 2d 65 78 |e "/htbi|n/pks-ex|
|000026b0| 74 72 61 63 74 2d 6b 65 | 79 2e 70 6c 3f 6f 70 3d |tract-ke|y.pl?op=|
|000026c0| 67 65 74 26 73 65 61 72 | 63 68 3d 25 73 22 20 22 |get&sear|ch=%s" "|
|000026d0| 5c 0a 54 68 65 20 55 52 | 4c 20 74 6f 20 70 61 73 |\.The UR|L to pas|
|000026e0| 73 20 74 6f 20 74 68 65 | 20 6b 65 79 73 65 72 76 |s to the| keyserv|
|000026f0| 65 72 22 29 0a 28 64 65 | 66 76 61 72 20 6d 63 2d |er").(de|fvar mc-|
|00002700| 70 67 70 2d 6b 65 79 73 | 65 72 76 65 72 2d 61 64 |pgp-keys|erver-ad|
|00002710| 64 72 65 73 73 20 22 70 | 67 70 2e 61 69 2e 6d 69 |dress "p|gp.ai.mi|
|00002720| 74 2e 65 64 75 22 20 22 | 5c 0a 48 6f 73 74 20 6e |t.edu" "|\.Host n|
|00002730| 61 6d 65 20 6f 66 20 6b | 65 79 73 65 72 76 65 72 |ame of k|eyserver|
|00002740| 22 29 0a 28 64 65 66 76 | 61 72 20 6d 63 2d 70 67 |").(defv|ar mc-pg|
|00002750| 70 2d 6b 65 79 73 65 72 | 76 65 72 2d 70 6f 72 74 |p-keyser|ver-port|
|00002760| 20 38 30 20 22 5c 0a 54 | 68 65 20 70 6f 72 74 20 | 80 "\.T|he port |
|00002770| 6f 6e 20 77 68 69 63 68 | 20 74 68 65 20 6b 65 79 |on which| the key|
|00002780| 73 65 72 76 65 72 27 73 | 20 48 54 54 50 20 64 61 |server's| HTTP da|
|00002790| 65 6d 6f 6e 20 6c 69 76 | 65 73 22 29 0a 28 64 65 |emon liv|es").(de|
|000027a0| 66 76 61 72 20 6d 63 2d | 70 67 70 2d 66 65 74 63 |fvar mc-|pgp-fetc|
|000027b0| 68 2d 74 69 6d 65 6f 75 | 74 20 32 30 20 22 5c 0a |h-timeou|t 20 "\.|
|000027c0| 2a 54 69 6d 65 6f 75 74 | 2c 20 69 6e 20 73 65 63 |*Timeout|, in sec|
|000027d0| 6f 6e 64 73 2c 20 66 6f | 72 20 61 6e 79 20 70 61 |onds, fo|r any pa|
|000027e0| 72 74 69 63 75 6c 61 72 | 20 6b 65 79 20 66 65 74 |rticular| key fet|
|000027f0| 63 68 20 6f 70 65 72 61 | 74 69 6f 6e 2e 22 29 0a |ch opera|tion.").|
|00002800| 28 64 65 66 76 61 72 20 | 6d 63 2d 70 67 70 2d 66 |(defvar |mc-pgp-f|
|00002810| 65 74 63 68 2d 6b 65 79 | 72 69 6e 67 2d 6c 69 73 |etch-key|ring-lis|
|00002820| 74 20 6e 69 6c 20 22 5c | 0a 2a 4c 69 73 74 20 6f |t nil "\|.*List o|
|00002830| 66 20 73 74 72 69 6e 67 | 73 20 77 68 69 63 68 20 |f string|s which |
|00002840| 61 72 65 20 66 69 6c 65 | 6e 61 6d 65 73 20 6f 66 |are file|names of|
|00002850| 20 70 75 62 6c 69 63 20 | 6b 65 79 72 69 6e 67 73 | public |keyrings|
|00002860| 20 74 6f 20 73 65 61 72 | 63 68 0a 77 68 65 6e 20 | to sear|ch.when |
|00002870| 66 65 74 63 68 69 6e 67 | 20 6b 65 79 73 2e 22 29 |fetching| keys.")|
|00002880| 0a 28 66 73 65 74 20 27 | 6d 63 2d 70 67 70 2d 62 |.(fset '|mc-pgp-b|
|00002890| 75 66 66 65 72 2d 67 65 | 74 2d 6b 65 79 20 23 5b |uffer-ge|t-key #[|
|000028a0| 28 62 75 66 29 20 22 8a | c0 19 5c 6e 71 88 65 62 |(buf) ".|..\nq.eb|
|000028b0| 88 c3 0c c0 c5 23 ad 93 | c6 94 89 11 ad 8d c3 0e |.....#..|........|
|000028c0| 07 c0 c5 23 ad 85 c8 09 | c6 95 5c 22 2a 87 22 20 |...#....|..\"*." |
|000028d0| 5b 6e 69 6c 20 73 74 61 | 72 74 20 62 75 66 20 72 |[nil sta|rt buf r|
|000028e0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000028f0| 20 6d 63 2d 70 67 70 2d | 6b 65 79 2d 62 65 67 69 | mc-pgp-|key-begi|
|00002900| 6e 2d 6c 69 6e 65 20 74 | 20 30 20 6d 63 2d 70 67 |n-line t| 0 mc-pg|
|00002910| 70 2d 6b 65 79 2d 65 6e | 64 2d 6c 69 6e 65 20 62 |p-key-en|d-line b|
|00002920| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 2d |uffer-su|bstring-|
|00002930| 6e 6f 2d 70 72 6f 70 65 | 72 74 69 65 73 5d 20 34 |no-prope|rties] 4|
|00002940| 20 22 5c 0a 52 65 74 75 | 72 6e 20 74 68 65 20 66 | "\.Retu|rn the f|
|00002950| 69 72 73 74 20 6b 65 79 | 20 62 6c 6f 63 6b 20 69 |irst key| block i|
|00002960| 6e 20 42 55 46 20 61 73 | 20 61 20 73 74 72 69 6e |n BUF as| a strin|
|00002970| 67 2c 20 6f 72 20 6e 69 | 6c 20 69 66 20 6e 6f 6e |g, or ni|l if non|
|00002980| 65 20 66 6f 75 6e 64 2e | 22 5d 29 0a 28 62 79 74 |e found.|"]).(byt|
|00002990| 65 2d 63 6f 64 65 20 22 | c0 c1 4e c2 3e ac 85 c3 |e-code "|..N.>...|
|000029a0| c4 c0 5c 22 88 c5 c0 c1 | c6 23 88 c7 c8 4d 88 c9 |..\"....|.#...M..|
|000029b0| ca 4d 88 cb cc 4d 87 22 | 20 5b 6d 63 2d 70 67 70 |.M...M."| [mc-pgp|
|000029c0| 2d 62 75 66 66 65 72 2d | 67 65 74 2d 6b 65 79 20 |-buffer-|get-key |
|000029d0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 20 28 |byte-opt|imizer (|
|000029e0| 6e 69 6c 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |nil byte|-compile|
|000029f0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 20 |-inline-|expand) |
|00002a00| 65 72 72 6f 72 20 22 25 | 73 20 61 6c 72 65 61 64 |error "%|s alread|
|00002a10| 79 20 68 61 73 20 61 20 | 62 79 74 65 2d 6f 70 74 |y has a |byte-opt|
|00002a20| 69 6d 69 7a 65 72 2c 20 | 63 61 6e 27 74 20 6d 61 |imizer, |can't ma|
|00002a30| 6b 65 20 69 74 20 69 6e | 6c 69 6e 65 22 20 70 75 |ke it in|line" pu|
|00002a40| 74 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |t byte-c|ompile-i|
|00002a50| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 20 6d 63 2d |nline-ex|pand mc-|
|00002a60| 70 67 70 2d 66 65 74 63 | 68 2d 66 72 6f 6d 2d 6b |pgp-fetc|h-from-k|
|00002a70| 65 79 72 69 6e 67 73 20 | 23 5b 28 69 64 29 20 22 |eyrings |#[(id) "|
|00002a80| 08 c1 89 89 1a 1b 1c 1d | c6 8e c7 c8 0e 09 41 ae |........|......A.|
|00002a90| 83 0e 09 40 5c 22 88 5c | 6e ac e2 0d ab df ca cb |...@\".\|n.......|
|00002aa0| 21 14 cc cd 0c 0e 0e cf | d0 d1 d2 d3 0d 40 5c 22 |!.......|.....@\"|
|00002ab0| 0e 09 41 ae 83 0e 09 40 | 26 08 13 d4 0b d5 5c 22 |..A....@|&.....\"|
|00002ac0| 88 d6 0b 21 d7 3d ab 87 | d8 0b d9 5c 22 88 aa 72 |...!.=..|...\"..r|
|00002ad0| 0c 1c 8a c1 1e 1a 0c 71 | 88 65 62 88 db 0e 1c c1 |.......q|.eb.....|
|00002ae0| dd 23 ad 95 de 94 89 16 | 1a ad 8e db 0e 1f c1 dd |.#......|........|
|00002af0| 23 ad 86 e0 0e 1a de 95 | 5c 22 2b 12 0d 41 15 aa |#.......|\"+..A..|
|00002b00| 1b 5c 6e 2d 87 22 20 5b | 6d 63 2d 70 67 70 2d 66 |.\n-." [|mc-pgp-f|
|00002b10| 65 74 63 68 2d 6b 65 79 | 72 69 6e 67 2d 6c 69 73 |etch-key|ring-lis|
|00002b20| 74 20 6e 69 6c 20 6b 65 | 79 20 70 72 6f 63 20 62 |t nil ke|y proc b|
|00002b30| 75 66 20 6b 65 79 72 69 | 6e 67 2d 6c 69 73 74 20 |uf keyri|ng-list |
|00002b40| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ab 84 |((byte-c|ode "...|
|00002b50| c1 08 21 88 5c 6e ab 8b | c3 5c 6e 21 c4 3d ab 84 |..!.\n..|.\n!.=..|
|00002b60| c5 5c 6e 21 88 c1 87 22 | 20 5b 62 75 66 20 6b 69 |.\n!..."| [buf ki|
|00002b70| 6c 6c 2d 62 75 66 66 65 | 72 20 70 72 6f 63 20 70 |ll-buffe|r proc p|
|00002b80| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 72 75 |rocess-s|tatus ru|
|00002b90| 6e 20 69 6e 74 65 72 72 | 75 70 74 2d 70 72 6f 63 |n interr|upt-proc|
|00002ba0| 65 73 73 5d 20 32 29 29 | 20 6d 65 73 73 61 67 65 |ess] 2))| message|
|00002bb0| 20 22 46 65 74 63 68 69 | 6e 67 20 25 73 20 66 72 | "Fetchi|ng %s fr|
|00002bc0| 6f 6d 20 6b 65 79 72 69 | 6e 67 73 2e 2e 2e 22 20 |om keyri|ngs..." |
|00002bd0| 69 64 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |id gener|ate-new-|
|00002be0| 62 75 66 66 65 72 20 22 | 20 2a 6d 61 69 6c 63 72 |buffer "| *mailcr|
|00002bf0| 79 70 74 20 74 65 6d 70 | 2a 22 20 73 74 61 72 74 |ypt temp|*" start|
|00002c00| 2d 70 72 6f 63 65 73 73 | 20 22 2a 50 47 50 2a 22 |-process| "*PGP*"|
|00002c10| 20 6d 63 2d 70 67 70 2d | 70 61 74 68 20 22 2d 6b | mc-pgp-|path "-k|
|00002c20| 78 61 66 22 20 22 2b 76 | 65 72 62 6f 73 65 3d 30 |xaf" "+v|erbose=0|
|00002c30| 22 20 22 2b 62 61 74 63 | 68 6d 6f 64 65 22 20 66 |" "+batc|hmode" f|
|00002c40| 6f 72 6d 61 74 20 22 2b | 70 75 62 72 69 6e 67 3d |ormat "+|pubring=|
|00002c50| 25 73 22 20 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |%s" proc|ess-send|
|00002c60| 2d 73 74 72 69 6e 67 20 | 22 0d 5c 6e 22 20 70 72 |-string |".\n" pr|
|00002c70| 6f 63 65 73 73 2d 73 74 | 61 74 75 73 20 72 75 6e |ocess-st|atus run|
|00002c80| 20 61 63 63 65 70 74 2d | 70 72 6f 63 65 73 73 2d | accept-|process-|
|00002c90| 6f 75 74 70 75 74 20 35 | 20 73 74 61 72 74 20 72 |output 5| start r|
|00002ca0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00002cb0| 20 6d 63 2d 70 67 70 2d | 6b 65 79 2d 62 65 67 69 | mc-pgp-|key-begi|
|00002cc0| 6e 2d 6c 69 6e 65 20 74 | 20 30 20 6d 63 2d 70 67 |n-line t| 0 mc-pg|
|00002cd0| 70 2d 6b 65 79 2d 65 6e | 64 2d 6c 69 6e 65 20 62 |p-key-en|d-line b|
|00002ce0| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 2d |uffer-su|bstring-|
|00002cf0| 6e 6f 2d 70 72 6f 70 65 | 72 74 69 65 73 5d 20 31 |no-prope|rties] 1|
|00002d00| 30 5d 20 6d 63 2d 70 67 | 70 2d 66 65 74 63 68 2d |0] mc-pg|p-fetch-|
|00002d10| 66 72 6f 6d 2d 68 74 74 | 70 20 23 5b 28 69 64 29 |from-htt|p #[(id)|
|00002d20| 20 22 c0 89 19 1a c3 8e | c4 c5 0e 06 41 ae 83 0e | "......|....A...|
|00002d30| 06 40 0e 07 23 88 c8 c9 | 21 12 ca cb 5c 6e 0e 07 |.@..#...|!...\n..|
|00002d40| 0e 0c 24 11 cd 09 ce cf | 0e 10 0e 06 41 ae 83 0e |..$.....|....A...|
|00002d50| 06 40 5c 22 d1 51 5c 22 | 88 d2 09 21 d3 3d ab 87 |.@\".Q\"|...!.=..|
|00002d60| d4 09 0e 15 5c 22 ac 72 | 5c 6e 1a 8a c0 1e 16 5c |....\".r|\n.....\|
|00002d70| 6e 71 88 65 62 88 d7 0e | 18 c0 d9 23 ad 95 da 94 |nq.eb...|...#....|
|00002d80| 89 16 16 ad 8e d7 0e 1b | c0 d9 23 ad 86 dc 0e 16 |........|..#.....|
|00002d90| da 95 5c 22 2e 06 87 22 | 20 5b 6e 69 6c 20 63 6f |..\"..."| [nil co|
|00002da0| 6e 6e 65 63 74 69 6f 6e | 20 62 75 66 20 28 28 62 |nnection| buf ((b|
|00002db0| 79 74 65 2d 63 6f 64 65 | 20 22 08 ab 84 c1 08 21 |yte-code| ".....!|
|00002dc0| 88 5c 6e ab 84 c3 5c 6e | 21 88 c1 87 22 20 5b 62 |.\n...\n|!..." [b|
|00002dd0| 75 66 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 63 |uf kill-|buffer c|
|00002de0| 6f 6e 6e 65 63 74 69 6f | 6e 20 64 65 6c 65 74 65 |onnectio|n delete|
|00002df0| 2d 70 72 6f 63 65 73 73 | 5d 20 32 29 29 20 6d 65 |-process|] 2)) me|
|00002e00| 73 73 61 67 65 20 22 46 | 65 74 63 68 69 6e 67 20 |ssage "F|etching |
|00002e10| 25 73 20 76 69 61 20 48 | 54 54 50 20 74 6f 20 25 |%s via H|TTP to %|
|00002e20| 73 2e 2e 2e 22 20 69 64 | 20 6d 63 2d 70 67 70 2d |s..." id| mc-pgp-|
|00002e30| 6b 65 79 73 65 72 76 65 | 72 2d 61 64 64 72 65 73 |keyserve|r-addres|
|00002e40| 73 20 67 65 6e 65 72 61 | 74 65 2d 6e 65 77 2d 62 |s genera|te-new-b|
|00002e50| 75 66 66 65 72 20 22 20 | 2a 6d 61 69 6c 63 72 79 |uffer " |*mailcry|
|00002e60| 70 74 20 74 65 6d 70 2a | 22 20 6f 70 65 6e 2d 6e |pt temp*|" open-n|
|00002e70| 65 74 77 6f 72 6b 2d 73 | 74 72 65 61 6d 20 22 2a |etwork-s|tream "*|
|00002e80| 6b 65 79 20 66 65 74 63 | 68 2a 22 20 6d 63 2d 70 |key fetc|h*" mc-p|
|00002e90| 67 70 2d 6b 65 79 73 65 | 72 76 65 72 2d 70 6f 72 |gp-keyse|rver-por|
|00002ea0| 74 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |t proces|s-send-s|
|00002eb0| 74 72 69 6e 67 20 22 47 | 45 54 20 22 20 66 6f 72 |tring "G|ET " for|
|00002ec0| 6d 61 74 20 6d 63 2d 70 | 67 70 2d 6b 65 79 73 65 |mat mc-p|gp-keyse|
|00002ed0| 72 76 65 72 2d 75 72 6c | 2d 74 65 6d 70 6c 61 74 |rver-url|-templat|
|00002ee0| 65 20 22 0d 5c 6e 22 20 | 70 72 6f 63 65 73 73 2d |e ".\n" |process-|
|00002ef0| 73 74 61 74 75 73 20 6f | 70 65 6e 20 61 63 63 65 |status o|pen acce|
|00002f00| 70 74 2d 70 72 6f 63 65 | 73 73 2d 6f 75 74 70 75 |pt-proce|ss-outpu|
|00002f10| 74 20 6d 63 2d 70 67 70 | 2d 66 65 74 63 68 2d 74 |t mc-pgp|-fetch-t|
|00002f20| 69 6d 65 6f 75 74 20 73 | 74 61 72 74 20 72 65 2d |imeout s|tart re-|
|00002f30| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6d |search-f|orward m|
|00002f40| 63 2d 70 67 70 2d 6b 65 | 79 2d 62 65 67 69 6e 2d |c-pgp-ke|y-begin-|
|00002f50| 6c 69 6e 65 20 74 20 30 | 20 6d 63 2d 70 67 70 2d |line t 0| mc-pgp-|
|00002f60| 6b 65 79 2d 65 6e 64 2d | 6c 69 6e 65 20 62 75 66 |key-end-|line buf|
|00002f70| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 2d 6e 6f |fer-subs|tring-no|
|00002f80| 2d 70 72 6f 70 65 72 74 | 69 65 73 5d 20 36 5d 20 |-propert|ies] 6] |
|00002f90| 6d 63 2d 70 67 70 2d 66 | 65 74 63 68 2d 66 72 6f |mc-pgp-f|etch-fro|
|00002fa0| 6d 2d 66 69 6e 67 65 72 | 20 23 5b 28 69 64 29 20 |m-finger| #[(id) |
|00002fb0| 22 c0 89 89 89 19 1a 1b | 1c c5 8e 0e 06 40 ad a9 |".......|.....@..|
|00002fc0| c7 c8 0e 06 40 5c 22 ad | a1 c9 ca 0e 06 40 5c 22 |....@\".|.....@\"|
|00002fd0| 88 0e 06 40 cb 94 cb 95 | 4f 12 0e 06 40 cc 94 cc |...@....|O...@...|
|00002fe0| 95 4f 11 cd ce 21 14 c0 | cf d0 8f 2d 87 22 20 5b |.O...!..|...-." [|
|00002ff0| 6e 69 6c 20 68 6f 73 74 | 20 75 73 65 72 20 63 6f |nil host| user co|
|00003000| 6e 6e 65 63 74 69 6f 6e | 20 62 75 66 20 28 28 62 |nnection| buf ((b|
|00003010| 79 74 65 2d 63 6f 64 65 | 20 22 08 ab 84 c1 08 21 |yte-code| ".....!|
|00003020| 88 5c 6e ab 84 c3 5c 6e | 21 88 c1 87 22 20 5b 62 |.\n...\n|!..." [b|
|00003030| 75 66 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 63 |uf kill-|buffer c|
|00003040| 6f 6e 6e 65 63 74 69 6f | 6e 20 64 65 6c 65 74 65 |onnectio|n delete|
|00003050| 2d 70 72 6f 63 65 73 73 | 5d 20 32 29 29 20 69 64 |-process|] 2)) id|
|00003060| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00003070| 5c 5c 28 2e 2b 5c 5c 29 | 40 5c 5c 28 5b 5e 40 5d |\\(.+\\)|@\\([^@]|
|00003080| 2b 5c 5c 29 24 22 20 6d | 65 73 73 61 67 65 20 22 |+\\)$" m|essage "|
|00003090| 54 72 79 69 6e 67 20 66 | 69 6e 67 65 72 20 25 73 |Trying f|inger %s|
|000030a0| 2e 2e 2e 22 20 31 20 32 | 20 67 65 6e 65 72 61 74 |..." 1 2| generat|
|000030b0| 65 2d 6e 65 77 2d 62 75 | 66 66 65 72 20 22 20 2a |e-new-bu|ffer " *|
|000030c0| 6d 61 69 6c 63 72 79 70 | 74 20 74 65 6d 70 2a 22 |mailcryp|t temp*"|
|000030d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 5c | (byte-c|ode "..\|
|000030e0| 6e 0b c4 24 15 c6 0d c7 | 0e 08 c9 51 5c 22 88 ca |n..$....|...Q\"..|
|000030f0| 0d 21 cb 3d ab 87 cc 0d | 0e 0d 5c 22 ac 72 5c 6e |.!.=....|..\".r\n|
|00003100| 1a 8a ce 1e 0f 5c 6e 71 | 88 65 62 88 d0 0e 11 ce |.....\nq|.eb.....|
|00003110| d2 23 ad 95 d3 94 89 16 | 0f ad 8e d0 0e 14 ce d2 |.#......|........|
|00003120| 23 ad 86 d5 0e 0f d3 95 | 5c 22 2b 87 22 20 5b 6f |#.......|\"+." [o|
|00003130| 70 65 6e 2d 6e 65 74 77 | 6f 72 6b 2d 73 74 72 65 |pen-netw|ork-stre|
|00003140| 61 6d 20 22 2a 6b 65 79 | 20 66 65 74 63 68 2a 22 |am "*key| fetch*"|
|00003150| 20 62 75 66 20 68 6f 73 | 74 20 37 39 20 63 6f 6e | buf hos|t 79 con|
|00003160| 6e 65 63 74 69 6f 6e 20 | 70 72 6f 63 65 73 73 2d |nection |process-|
|00003170| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 22 2f 57 20 |send-str|ing "/W |
|00003180| 22 20 75 73 65 72 20 22 | 0d 5c 6e 22 20 70 72 6f |" user "|.\n" pro|
|00003190| 63 65 73 73 2d 73 74 61 | 74 75 73 20 6f 70 65 6e |cess-sta|tus open|
|000031a0| 20 61 63 63 65 70 74 2d | 70 72 6f 63 65 73 73 2d | accept-|process-|
|000031b0| 6f 75 74 70 75 74 20 6d | 63 2d 70 67 70 2d 66 65 |output m|c-pgp-fe|
|000031c0| 74 63 68 2d 74 69 6d 65 | 6f 75 74 20 6e 69 6c 20 |tch-time|out nil |
|000031d0| 73 74 61 72 74 20 72 65 | 2d 73 65 61 72 63 68 2d |start re|-search-|
|000031e0| 66 6f 72 77 61 72 64 20 | 6d 63 2d 70 67 70 2d 6b |forward |mc-pgp-k|
|000031f0| 65 79 2d 62 65 67 69 6e | 2d 6c 69 6e 65 20 74 20 |ey-begin|-line t |
|00003200| 30 20 6d 63 2d 70 67 70 | 2d 6b 65 79 2d 65 6e 64 |0 mc-pgp|-key-end|
|00003210| 2d 6c 69 6e 65 20 62 75 | 66 66 65 72 2d 73 75 62 |-line bu|ffer-sub|
|00003220| 73 74 72 69 6e 67 2d 6e | 6f 2d 70 72 6f 70 65 72 |string-n|o-proper|
|00003230| 74 69 65 73 5d 20 35 29 | 20 28 28 65 72 72 6f 72 |ties] 5)| ((error|
|00003240| 29 29 5d 20 34 5d 5d 20 | 34 29 0a 28 64 65 66 76 |))] 4]] |4).(defv|
|00003250| 61 72 20 6d 63 2d 70 67 | 70 2d 66 65 74 63 68 2d |ar mc-pg|p-fetch-|
|00003260| 6d 65 74 68 6f 64 73 20 | 27 28 6d 63 2d 70 67 70 |methods |'(mc-pgp|
|00003270| 2d 66 65 74 63 68 2d 66 | 72 6f 6d 2d 6b 65 79 72 |-fetch-f|rom-keyr|
|00003280| 69 6e 67 73 20 6d 63 2d | 70 67 70 2d 66 65 74 63 |ings mc-|pgp-fetc|
|00003290| 68 2d 66 72 6f 6d 2d 66 | 69 6e 67 65 72 20 6d 63 |h-from-f|inger mc|
|000032a0| 2d 70 67 70 2d 66 65 74 | 63 68 2d 66 72 6f 6d 2d |-pgp-fet|ch-from-|
|000032b0| 68 74 74 70 29 20 22 5c | 0a 4c 69 73 74 20 6f 66 |http) "\|.List of|
|000032c0| 20 6d 65 74 68 6f 64 73 | 20 74 6f 20 74 72 79 20 | methods| to try |
|000032d0| 77 68 65 6e 20 61 74 74 | 65 6d 70 74 69 6e 67 20 |when att|empting |
|000032e0| 74 6f 20 66 65 74 63 68 | 20 61 20 6b 65 79 2e 20 |to fetch| a key. |
|000032f0| 20 45 61 63 68 0a 65 6c | 65 6d 65 6e 74 20 69 73 | Each.el|ement is|
|00003300| 20 61 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 63 | a funct|ion to c|
|00003310| 61 6c 6c 20 77 69 74 68 | 20 61 6e 20 49 44 20 61 |all with| an ID a|
|00003320| 73 20 61 72 67 75 6d 65 | 6e 74 2e 20 20 53 65 65 |s argume|nt.  See|
|00003330| 20 74 68 65 0a 64 6f 63 | 75 6d 65 6e 74 61 74 69 | the.doc|umentati|
|00003340| 6f 6e 20 66 6f 72 20 74 | 68 65 20 66 75 6e 63 74 |on for t|he funct|
|00003350| 69 6f 6e 20 6d 63 2d 70 | 67 70 2d 66 65 74 63 68 |ion mc-p|gp-fetch|
|00003360| 2d 6b 65 79 20 66 6f 72 | 20 61 20 64 65 73 63 72 |-key for| a descr|
|00003370| 69 70 74 69 6f 6e 20 6f | 66 0a 74 68 65 20 49 44 |iption o|f.the ID|
|00003380| 2e 22 29 0a 28 66 73 65 | 74 20 27 6d 63 2d 70 67 |.").(fse|t 'mc-pg|
|00003390| 70 2d 66 65 74 63 68 2d | 6b 65 79 20 23 5b 28 26 |p-fetch-|key #[(&|
|000033a0| 6f 70 74 69 6f 6e 61 6c | 20 69 64 29 20 22 08 c1 |optional| id) "..|
|000033b0| 89 89 89 89 1a 1b 1c 1d | 1e 06 1e 07 0e 08 ac 87 |........|........|
|000033c0| c9 ca 21 c1 42 16 08 0d | ac 92 0e 07 ab 8e 0e 07 |..!.B...|........|
|000033d0| 40 0e 08 21 15 0e 07 41 | 16 07 aa 6b 0d 3b ac 87 |@..!...A|...k.;..|
|000033e0| cb cc 21 88 c1 aa 85 cd | 8e ce 8b 29 2e 06 87 22 |..!.....|...)..."|
|000033f0| 20 5b 6d 63 2d 70 67 70 | 2d 66 65 74 63 68 2d 6d | [mc-pgp|-fetch-m|
|00003400| 65 74 68 6f 64 73 20 6e | 69 6c 20 61 72 67 73 20 |ethods n|il args |
|00003410| 62 75 66 20 70 72 6f 63 | 20 6b 65 79 20 70 72 6f |buf proc| key pro|
|00003420| 63 65 73 73 2d 63 6f 6e | 6e 65 63 74 69 6f 6e 2d |cess-con|nection-|
|00003430| 74 79 70 65 20 6d 65 74 | 68 6f 64 73 20 69 64 20 |type met|hods id |
|00003440| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 46 65 74 |read-str|ing "Fet|
|00003450| 63 68 20 6b 65 79 20 66 | 6f 72 3a 20 22 20 6d 65 |ch key f|or: " me|
|00003460| 73 73 61 67 65 20 22 4b | 65 79 20 6e 6f 74 20 66 |ssage "K|ey not f|
|00003470| 6f 75 6e 64 2e 22 20 28 | 28 62 79 74 65 2d 63 6f |ound." (|(byte-co|
|00003480| 64 65 20 22 08 ab 84 c1 | 08 21 88 c1 87 22 20 5b |de "....|.!..." [|
|00003490| 62 75 66 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |buf kill|-buffer]|
|000034a0| 20 32 29 29 20 28 28 62 | 79 74 65 2d 63 6f 64 65 | 2)) ((b|yte-code|
|000034b0| 20 22 c0 c1 21 12 c3 5c | 6e 21 88 c4 20 c5 20 c6 | "..!..\|n!.. . .|
|000034c0| a5 57 ab 8a c7 c5 20 c6 | a5 c4 20 5a 21 88 c8 16 |.W.... .|.. Z!...|
|000034d0| 09 0e 5c 6e ab 8c cb 0e | 09 cc cd 0e 5c 6e 5c 22 |..\n....|....\n\"|
|000034e0| 43 5c 22 16 09 ce cf d0 | 5c 6e 0e 11 0e 09 25 16 |C\".....|\n....%.|
|000034f0| 12 d3 0e 12 d4 5c 22 88 | d3 0e 12 0e 15 5c 22 88 |.....\".|.....\".|
|00003500| d3 0e 12 d4 5c 22 88 d6 | 0e 12 21 88 5c 6e 71 88 |....\"..|..!.\nq.|
|00003510| d7 0e 12 21 d8 3d ab 8b | d9 0e 12 da 5c 22 88 65 |...!.=..|....\".e|
|00003520| 62 88 aa 6d db dc 21 ad | bb cb 0e 09 dd 5c 22 16 |b..m..!.|.....\".|
|00003530| 09 ce cf d0 5c 6e 0e 11 | 0e 09 25 16 12 d3 0e 12 |....\n..|..%.....|
|00003540| d4 5c 22 88 d3 0e 12 0e | 15 5c 22 88 d3 0e 12 d4 |.\".....|.\".....|
|00003550| 5c 22 88 d6 0e 12 21 88 | d7 0e 12 21 d8 3d ab 88 |\"....!.|...!.=..|
|00003560| d9 0e 12 da 5c 22 88 aa | 70 de 87 22 20 5b 67 65 |....\"..|p.." [ge|
|00003570| 6e 65 72 61 74 65 2d 6e | 65 77 2d 62 75 66 66 65 |nerate-n|ew-buffe|
|00003580| 72 20 22 20 2a 50 47 50 | 20 4b 65 79 20 49 6e 66 |r " *PGP| Key Inf|
|00003590| 6f 2a 22 20 62 75 66 20 | 70 6f 70 2d 74 6f 2d 62 |o*" buf |pop-to-b|
|000035a0| 75 66 66 65 72 20 77 69 | 6e 64 6f 77 2d 68 65 69 |uffer wi|ndow-hei|
|000035b0| 67 68 74 20 66 72 61 6d | 65 2d 68 65 69 67 68 74 |ght fram|e-height|
|000035c0| 20 32 20 65 6e 6c 61 72 | 67 65 2d 77 69 6e 64 6f | 2 enlar|ge-windo|
|000035d0| 77 20 28 22 2d 66 22 20 | 22 2b 76 65 72 62 6f 73 |w ("-f" |"+verbos|
|000035e0| 65 3d 30 22 20 22 2b 62 | 61 74 63 68 6d 6f 64 65 |e=0" "+b|atchmode|
|000035f0| 22 29 20 61 72 67 73 20 | 6d 63 2d 70 67 70 2d 61 |") args |mc-pgp-a|
|00003600| 6c 74 65 72 6e 61 74 65 | 2d 6b 65 79 72 69 6e 67 |lternate|-keyring|
|00003610| 20 61 70 70 65 6e 64 20 | 66 6f 72 6d 61 74 20 22 | append |format "|
|00003620| 2b 70 75 62 72 69 6e 67 | 3d 25 73 22 20 61 70 70 |+pubring|=%s" app|
|00003630| 6c 79 20 73 74 61 72 74 | 2d 70 72 6f 63 65 73 73 |ly start|-process|
|00003640| 20 22 2a 50 47 50 2a 22 | 20 6d 63 2d 70 67 70 2d | "*PGP*"| mc-pgp-|
|00003650| 70 61 74 68 20 70 72 6f | 63 20 70 72 6f 63 65 73 |path pro|c proces|
|00003660| 73 2d 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 22 0d |s-send-s|tring ".|
|00003670| 5c 6e 22 20 6b 65 79 20 | 70 72 6f 63 65 73 73 2d |\n" key |process-|
|00003680| 73 65 6e 64 2d 65 6f 66 | 20 70 72 6f 63 65 73 73 |send-eof| process|
|00003690| 2d 73 74 61 74 75 73 20 | 72 75 6e 20 61 63 63 65 |-status |run acce|
|000036a0| 70 74 2d 70 72 6f 63 65 | 73 73 2d 6f 75 74 70 75 |pt-proce|ss-outpu|
|000036b0| 74 20 35 20 79 2d 6f 72 | 2d 6e 2d 70 20 22 41 64 |t 5 y-or|-n-p "Ad|
|000036c0| 64 20 74 68 69 73 20 6b | 65 79 20 74 6f 20 6b 65 |d this k|ey to ke|
|000036d0| 79 72 69 6e 67 3f 20 22 | 20 28 22 2d 6b 61 22 29 |yring? "| ("-ka")|
|000036e0| 20 74 5d 20 36 29 29 5d | 20 36 20 22 5c 0a 41 74 | t] 6))]| 6 "\.At|
|000036f0| 74 65 6d 70 74 20 74 6f | 20 66 65 74 63 68 20 61 |tempt to| fetch a|
|00003700| 20 6b 65 79 20 66 6f 72 | 20 61 64 64 69 74 69 6f | key for| additio|
|00003710| 6e 20 74 6f 20 50 47 50 | 20 6b 65 79 72 69 6e 67 |n to PGP| keyring|
|00003720| 2e 20 20 49 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |.  Inter|actively|
|00003730| 2c 0a 70 72 6f 6d 70 74 | 20 66 6f 72 20 73 74 72 |,.prompt| for str|
|00003740| 69 6e 67 20 6d 61 74 63 | 68 69 6e 67 20 6b 65 79 |ing matc|hing key|
|00003750| 20 74 6f 20 66 65 74 63 | 68 2e 0a 0a 4e 6f 6e 2d | to fetc|h...Non-|
|00003760| 69 6e 74 65 72 61 63 74 | 69 76 65 6c 79 2c 20 49 |interact|ively, I|
|00003770| 44 20 6d 75 73 74 20 62 | 65 20 61 20 70 61 69 72 |D must b|e a pair|
|00003780| 2e 20 20 54 68 65 20 43 | 41 52 20 6d 75 73 74 20 |.  The C|AR must |
|00003790| 62 65 20 61 20 62 61 72 | 65 20 45 6d 61 69 6c 0a |be a bar|e Email.|
|000037a0| 61 64 64 72 65 73 73 20 | 61 6e 64 20 74 68 65 20 |address |and the |
|000037b0| 43 44 52 20 61 20 6b 65 | 79 49 44 20 28 77 69 74 |CDR a ke|yID (wit|
|000037c0| 68 20 5c 22 30 78 5c 22 | 20 70 72 65 66 69 78 29 |h \"0x\"| prefix)|
|000037d0| 2e 20 20 45 69 74 68 65 | 72 2c 20 62 75 74 20 6e |.  Eithe|r, but n|
|000037e0| 6f 74 0a 62 6f 74 68 2c | 20 6d 61 79 20 62 65 20 |ot.both,| may be |
|000037f0| 6e 69 6c 2e 0a 0a 52 65 | 74 75 72 6e 20 74 20 69 |nil...Re|turn t i|
|00003800| 66 20 77 65 20 74 68 69 | 6e 6b 20 77 65 20 77 65 |f we thi|nk we we|
|00003810| 72 65 20 73 75 63 63 65 | 73 73 66 75 6c 3b 20 6e |re succe|ssful; n|
|00003820| 69 6c 20 6f 74 68 65 72 | 77 69 73 65 2e 20 20 4e |il other|wise.  N|
|00003830| 6f 74 65 20 74 68 61 74 | 20 6e 69 6c 0a 69 73 20 |ote that| nil.is |
|00003840| 6e 6f 74 20 6e 65 63 65 | 73 73 61 72 69 6c 79 20 |not nece|ssarily |
|00003850| 61 6e 20 65 72 72 6f 72 | 2c 20 73 69 6e 63 65 20 |an error|, since |
|00003860| 77 65 20 6d 61 79 20 68 | 61 76 65 20 6d 65 72 65 |we may h|ave mere|
|00003870| 6c 79 20 66 69 72 65 64 | 20 6f 66 66 20 61 6e 20 |ly fired| off an |
|00003880| 45 6d 61 69 6c 0a 72 65 | 71 75 65 73 74 20 66 6f |Email.re|quest fo|
|00003890| 72 20 74 68 65 20 6b 65 | 79 2e 22 20 6e 69 6c 5d |r the ke|y." nil]|
|000038a0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+